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

[µo°Ý] ¶}±Ò¨Ã½s¿èÀÉ®×

[µo°Ý] ¶}±Ò¨Ã½s¿èÀÉ®×

¦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¦ì°ª¤â
  1. Option Explicit
  2. Dim Open_File As Object
  3. Sub ¶}±Ò¨Ã½s¿èÀÉ®×()
  4.     Set Open_File = Application.FileDialog(msoFileDialogOpen)
  5.     With Open_File
  6.          .InitialFileName = "D:\*.xlsx"
  7.          .Show
  8.     End With
  9. End Sub
½Æ»s¥N½X

¦^´_ 3# n7822123


    ¦¨¥\¤F
   ÁÂÁÂ!

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD