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

[µo°Ý] ¦p¦óÅývbaÅܦ¨¥iÄâ

[µo°Ý] ¦p¦óÅývbaÅܦ¨¥iÄâ

¥H¤Uµ{¦¡½X­n¦p¦ó§ï¼g¤~¯à¦bÀH¨­ºÐ©Î¦b¥ô¦ó¹q¸£¸Ì³£¥i°õ¦æ
Sub ¥¨¶°2()
Workbooks.Open Filename:="R:\080404-3­ÓÀÉ®×­pºâ(VB-TEST)-°ÝÃD\02-­pºâ\02-­pºâ01.xlsx"
Workbooks.Open Filename:="R:\080404-3­ÓÀÉ®×­pºâ(VB-TEST)-°ÝÃD\03-¦¨ªG.xlsx", UpdateLinks:=0
Workbooks("01-¿é¤J.xlsm").Worksheets("¿é¤J01").Cells.Copy
Workbooks("02-­pºâ01.xlsx").Sheets("¿é¤J01").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
Workbooks("01-¿é¤J.xlsm").Worksheets("¿é¤J02").Cells.Copy
Workbooks("02-­pºâ01.xlsx").Sheets("¿é¤J02").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
Workbooks("01-¿é¤J.xlsm").Worksheets("¿é¤J03").Cells.Copy
Workbooks("02-­pºâ01.xlsx").Sheets("¿é¤J03").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
Workbooks("01-¿é¤J.xlsm").Worksheets("¿é¤J04").Cells.Copy
Workbooks("02-­pºâ01.xlsx").Sheets("¿é¤J04").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
Workbooks("01-¿é¤J.xlsm").Worksheets("¿é¤J05").Cells.Copy
Workbooks("02-­pºâ01.xlsx").Sheets("¿é¤J05").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
Workbooks("01-¿é¤J.xlsm").Worksheets("¿é¤J06").Cells.Copy
Workbooks("02-­pºâ01.xlsx").Sheets("¿é¤J06").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
Workbooks("02-­pºâ01.XLSx").Close SaveChanges:=False
End Sub

080404-3­ÓÀÉ®×­pºâ(VB-TEST)-°ÝÃD.rar (318.09 KB)

¤£¥Î·Q¤F¡A¨º¬O¤£¥i¯àªº¡C

TOP

¦^´_ 1# oak0723-1


    ¦pªGÀɮ׳£¬O¤@°_±aµÛ¨«¡A¨º´N¥Îthisworkbook.path¨ú¥N"R:\080404-3­ÓÀÉ®×­pºâ(VB-TEST)-°ÝÃD"
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁÂHsieh¦Ñ®v
¨Ì§A«ü¾Éªº¤èªk§Ú§¹¦¨¤F

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD