- ©«¤l
- 37
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 72
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- 0
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2020-7-23
- ³Ì«áµn¿ý
- 2022-5-27
|
¦U¦ì°ª¤â
¤p§Ì·Q°µÓVBA¥¨¶°a.xlsm
¥\¯à¬O¶}±ÒD¼Ñªºb.xlsx(¨C¦¸ªºÀɦW¤£¤@¼Ë) ¨Ó°µ«½Æ©Êªº¨Æ±¡
¦ý¬O§Ú¥d¦b¡A§Ú¥´¶}¤Fb.xlsx¡AµM«á§Ú¤£¾å±o¸Ó«ç»òÅýµ{¦¡ª¾¹D¡A§Ún½s¿èªº¬Ob.xlsx¡A
¤ñ¦p §ÚnÅýb.xlsxªº cells(1,1) = abc
³o¨Çµ{¦¡¸Ó«ç»ò©ñ¦bþ?
ÁÂÁ¦U¦ì°ª¤â- Option Explicit
- Dim Open_File As Object
- Sub ¶}±Ò¨Ã½s¿èÀÉ®×()
- Set Open_File = Application.FileDialog(msoFileDialogOpen)
- With Open_File
- .InitialFileName = "D:\*.xlsx"
- .Show
- End With
- End Sub
½Æ»s¥N½X |
|