EXCEL §ì¨ú¥t¤@Ó EXCEL ªÅ¥Õ¥X²{0
- ©«¤l
- 25
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 35
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- S
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-2-19
- ³Ì«áµn¿ý
- 2016-2-24
|
EXCEL §ì¨ú¥t¤@Ó EXCEL ªÅ¥Õ¥X²{0
Sub «ö¶s12_Click()
Dim sPath As String
sPath = ThisWorkbook.Path & "\"
Range("A1:A999").FormulaArray = "='" & sPath & "[tmp.xlsx]tmp'!A1:A999"
Range("B1:B999").FormulaArray = "='" & sPath & "[tmp.xlsx]tmp'!C1:C999"
End Sub
§Ú¥ÎEXCEL §ì¨ú Tmp EXCEL ¸ê®Æ ¦ý¬O§Ú¤£½T©w³oÓ¸ê®Æ¨ì´X¦æ ©Ò¥H¼g¨ì999 ¦ý¬O ªÅ¥ÕÀx¦sÓ·|¦^¶Ç0
³o³¡¤À¦³¤H²M·¡¦p¦ó§ó§ï¶Ü?
ªÅ¥Õ°Ï¶ô§ÚÁÙ¬OnÅý¦o¦^¶ÇªÅ¥Õªü |
|
|
|
|
|
|
- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¦^´_ 1# iwiniwin
¨º´N¥Î¬d¸ß¸ÓÄ檺³Ì«á¦ì§}ªº¤è¦¡¥h°µ
Sub «ö¶s12_Click()
Dim sPath As String
sPath = ThisWorkbook.Path & "\"
Workbooks.Open (sPath & "tmp.xlsx")
ARow = Workbooks("tmp.xlsx").Sheets("tmp").Columns(1).Find("*", , , , , 2).Row
CRow = Workbooks("tmp.xlsx").Sheets("tmp").Columns(3).Find("*", , , , , 2).Row
Workbooks("tmp.xlsx").Close
Range("A1:A" & ARow).FormulaArray = "='" & sPath & "[tmp.xlsx]tmp'!A1:A" & ARow
Range("B1:B" & CRow).FormulaArray = "='" & sPath & "[tmp.xlsx]tmp'!C1:C" & CRow
End Sub |
|
|
|
|
|
|