INDIRECT°Ñ·Ó¥¼¶}±Òªº¬¡¶Ã¯
- ©«¤l
- 41
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 83
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-20
- ³Ì«áµn¿ý
- 2019-12-17
|
INDIRECT°Ñ·Ó¥¼¶}±Òªº¬¡¶Ã¯
Google¤F¤@¤U¡A·Q¥ÎVBA¼g¡A¦ý¥Ø«eª¬ªpSub¥i°õ¦æ¦ý¤£¯à§ï¦¨Function¡C
¨D¸Ñ¡Aµ{¦¡½X¦p¤U¡G
(¦¨¥\)
Sub pullout()
path = "D:\"
workbookName = "Book1.xls"
worksheetName = "sheet1"
CELL = "A1"
returnedValue = "'" & path & "[" & workbookName & "]" & _
worksheetName & "'!" & Range(CELL).Address(True, True, xlR1C1)
Debug.Print returnedValue
[D2] = ExecuteExcel4Macro(returnedValue)
End Sub
(¥¢±Ñ)
Private Function RETRIEVE(path, workbookName, worksheetName, CELL)
returnedValue = "'" & path & "[" & workbookName & "]" & worksheetName & "'!" & Range(CELL).Address(True, True, xlR1C1)
RETRIEVE = ExecuteExcel4Macro(returnedValue)
End Function |
|
|
|
|
|
|
- ©«¤l
- 41
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 83
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-20
- ³Ì«áµn¿ý
- 2019-12-17
|
ª½±µ¦bsub¤¤©I¥sfunction¬O¥i¥Hªº¡A
¦ý§Ú·Qnª½±µ¦bÀx¦s®æ¤¤key¤J¤½¦¡¨Ï¥Î¡C
¦p¥H¤Uªþ¥ó¡A½Ð¦U¦ì¤j¤j¸Ñ´b¡A·P®¦!
°Ñ·Ó¥¼¶}±Ò¬¡·~ï.rar (14.25 KB)
|
|
|
|
|
|
|