Access (VBA)

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

 
(Windows 10 Pro : Access 2016)
エクセルシートをインポートする
投稿日時: 21/09/28 18:02:39
投稿者: パピープ

こんにちは。
アクセスでエクセルにあるデータをインポートする際に、
ファイル名がコロコロかわるので、ファイルを開くダイアログでファイルを選択して、
アクセス側のテーブルに追加したいのですがうまくいきません。
色々、調べてやってみているのですが・・。
どなたかよい知恵を授けてください。
 
Private Sub 読み込み_Click()
On Error GoTo エラー2_Err
 
Dim OFN As String
Dim MyDir As String
     
    MyDir = "\\sv01\東京\データ"
     
    'ファイル名を選択
    With Application.FileDialog(msoFileDialogFilePicker)
        .Filters.Add "Excel", "*.xlsx"
            If .Show = False Then
                OFN = .SelectedItems(1)
            End If
    End With
     
    'インポートを実行
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
    "T01_データ", MyDir&"\"OFN, True
     
    '***処理が終了***
    MsgBox "処理が完了しました"
 
読み込み_Exit:
    Exit Sub
 
エラー2_Err:
    MsgBox Error$
    Resume 読み込み_Exit
 
End Sub

投稿日時: 21/09/29 07:53:46
投稿者: パピープ

質問させて頂いた後も、あれこれ調べていたら、
考えていたことに近いコードがサンプルでありました。
 
それを元に、試行錯誤していたところ、うまく目的のことが出来ました。
もっとしっかり調べないとだめだと痛感しました。
 
解決しましたので、解決済にさせて頂きます。