ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Excel Àɮ׳Q¨ä¥L¤H¶}±Ò

[µo°Ý] Excel Àɮ׳Q¨ä¥L¤H¶}±Ò

Dear ¤j¤j
§Q¥Î¥Ø«eªºEXCELÀÉ®×(¨Ò¦p:¬¡­¶Ã¯1)¨Ó¶}°_¥t¤@­ÓEXCELÀÉ®×(BB)
Dim A As Workbook, B As Worksheet
Set A = Workbooks.Open(Filename:=ThisWorkbook.Path & "\bb.xlsm")
Set B = A.Sheets("¤u§@ªí1")
Range("A1") = B.Range("A1")
end sub
¦pªG¹J¨ìBBÀɮ׳Q§O¤H¶}±Ò¤¤,´N·|¥X²{°õ¦æ¿ù»~,¦Ó¦Û°Ê¶}±ÒBBÀÉ®×,
µLªk¦AÄ~Äò°õ¦æ¤U­±µ{¦¡,
¬O§_¦³¿ìªk¥i¥H¦b¤£ºÞÀɮ׬O§_¦³³Q¶}±Ò¤¤¤´¥i¥HÄ~Äò°õ¦æ¸Óµ{¦¡.
¨º­n¦p¦ó­×§ï??
ÁÂÁÂ

¦^´_ 3# GBKEE
·PÁÂGBKEE¤j¤jªº¦^ÂÐ
on error resume next ¥i¥H¸Ñ¨M³o°ÝÃD
·P®¦

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD