n7822123

¦^´_ 1# ssooi


§â¿ïÀÉ°µ¦¨°Æ¨ç¼Æ¡A°õ¦æ"¶}±Ò¨Ã½s¿èÀÉ®×" §Y¥i

¥þ³¡¤Wµù¸Ñ¤F¡A¦Û¦æ¬ã¨s¡Aµ{¦¡¦p¤U

Sub ¶}±Ò¨Ã½s¿èÀÉ®×()
With Workbooks.Open(GetFileFullName).Sheets(1)
  .Activate
  .Cells(1, 1) = "abc"
  '.Parent.Close True       'Ãö³¬ÀÉ®×+¦sÀÉ
End With
End Sub

Function GetFileFullName() As String
With Application.FileDialog(msoFileDialogFilePicker)
  .Filters.Clear                                              '¥ý²M°£¥i¿ïÀɮײM³æ
  .Filters.Add "ExcelÀÉ®×", "*.xls*"             '­­©w¿ï¨úÀɮתº²M³æ
  .InitialFileName = "D:\"                           '¿ï¨úµøµ¡³Ìªìªº¸ê®Æ§¨¦ì¸m
  .AllowMultiSelect = False                       '³æ¿ï
  If .Show = 0 Then Exit Function             '¨S¿ï¾Ü´NÂ÷¶}
  GetFileFullName = .SelectedItems(1)   '¦^¶Ç¿ï¾Üªº²Ä¤@­ÓÀɮתº '§¹¾ã¸ô®|'
End With
End Function

n7822123

¦^´_ 1# ssooi


¿ïÀɲÄ2ºØ¼gªk¡A¬Ý§A³ßÅw­þ¤@­Ó

§Ú¬O³ßÅw²Ä1­Ó¡A¥\¯à(°Ñ¼Æ)¤ñ¸û¦h¡AÁÙ¥i¥H§ï¿ï¸ê®Æ§¨

¥Ñ¨ä³ßÅw¼g¦¨°Æ¨ç¼Æ¡A¥i¥Hµ¹¦h­Óµ{§Ç©I¥s¨Ï¥Î

Sub ¶}±Ò¨Ã½s¿èÀÉ®×()
Dim MyFile As String
MyFile = Application.GetOpenFilename("ExcelÀÉ®×,*.xls*", MultiSelect:=False)
If MyFile = "False" Then Exit Sub
With Workbooks.Open(MyFile).Sheets(1)
  .Activate
  .Cells(1, 1) = "abc"
  '.Parent.Close True       'Ãö³¬ÀÉ®×+¦sÀÉ
End With
End Sub