Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Access 2016)
取り込むEXCELをダイアログで指定したい
投稿日時: 20/08/26 11:45:35
投稿者: silk123

TransferSpreadsheetを使ってEXCELをテーブルに取り込む場合、そのEXCELをダイアログを用いて都度指定することはできますでしょうか。
 
DoCmd.TransferSpreadsheet acImport, , "T_データ", FileName, True, ""
(FileNameの部分をダイアログで指定したいです)

回答
投稿日時: 20/08/26 12:02:33
投稿者: sk

引用:
TransferSpreadsheetを使ってEXCELをテーブルに取り込む場合、
そのEXCELをダイアログを用いて都度指定

Dim FileName As String
 
With Application.FileDialog(1) 'msoFileDialogOpen
    .Title = "ブックの選択"
    .Filters.Clear
    .Filters.Add "Excel ブック", "*.xlsx; *.xlsm; *.xls"
    If .Show = 0 Then
        Exit Sub
    End If
    FileName = .SelectedItems(1)
End With
 
DoCmd.TransferSpreadsheet acImport, , "T_データ", FileName, True, ""
 
--------------------------------------------------------------------
 
以上のようなコードを追記なさればよろしいのではないかと。

投稿日時: 20/09/25 16:37:41
投稿者: silk123

提示して頂いた通りに記述した所、ダイアログが表示されました。
ありがとうございました。