¦X¨Ö¤@Óexcel¤ºªº´XÓworksheetªº¤º®e¦b¥t¤@Óexcel¤ºªº¤@Óworksheet¤º
- ©«¤l
- 430
- ¥DÃD
- 65
- ºëµØ
- 0
- ¿n¤À
- 521
- ÂI¦W
- 30
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-10-30
- ³Ì«áµn¿ý
- 2024-8-13
|
¦X¨Ö¤@Óexcel¤ºªº´XÓworksheetªº¤º®e¦b¥t¤@Óexcel¤ºªº¤@Óworksheet¤º
¦X¨Ö3ÓEXCEL.rar (18.97 KB)
Private Sub cmdMerge_Click()
Dim a, b, c As Integer '«Å§iA,B,C¬°¾ã¼Æ
Dim objsheet As Worksheet
Source = Excel.ActiveWorkbook.Name '·sÀÉ®×µøµ¡½s¸¹
n = Range("b3")
m = Range("b4")
hmerger = UCase(Range("b5")) '¬O§_¬°¤ô¥¦X¨Ö
'±N¤§«e¦X¨Öªºµ²ªG²M°£
Sheet2.Range("A:AB").Clear
z = 1
i = 1
Filename1 = Range("b" & 6) & "." & Range("b2")
Filename2 = Range("b" & 7) & "." & Range("b2")
Filename3 = Range("b" & 8) & "." & Range("b2")
Workbooks.Open Filename:=Excel.Workbooks(Source).Path & "\" & Filename1
Workbooks.Open Filename:=Excel.Workbooks(Source).Path & "\" & Filename2
Workbooks.Open Filename:=Excel.Workbooks(Source).Path & "\" & Filename3
WorkName = Excel.ActiveWorkbook.Name ' |
|
|
|
|
|
|
- ©«¤l
- 430
- ¥DÃD
- 65
- ºëµØ
- 0
- ¿n¤À
- 521
- ÂI¦W
- 30
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-10-30
- ³Ì«áµn¿ý
- 2024-8-13
|
¦^´_ 2# Hsieh
½Ð°Ý¦pªG±N´XÓ¤£¦Pªºexcel¦X¨Ö¥i¥H¶Ü¡H³oÓ¥u¬O±N¤@Óexcelªº¤£¦Pworksheet¦X¨Ö¡C¦ý¤£¦Pªºexcel§Ú´N·Q¤£¨ì¡A«ç¼Ë¸Ñ¨M¡H |
|
|
|
|
|
|