HOME > Q&A > Access （VBA）

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

 
(Windows 10 Home : Access 2016)
取り込むEXCELをダイアログで指定したい 投稿者: silk123さんについて
投稿日時: 20/10/16 12:49:41
投稿者: やっほー

取り込むEXCELをダイアログで指定したい 投稿者: silk123さんについて
ありがたく投稿をAccessで活用させて頂いております。
 
そのなかでExcelのシートを選択し、テーブルへ保存できるように出来ますでしょうか？
もしくは、指定したシート名(sheet2)をテーブルへ保存できるように出来ますでしょうか。
お手数ですが、宜しくお願い致します。
 
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/10/16 13:23:48
投稿者: sk

引用:
取り込むEXCELをダイアログで指定したい 投稿者: silk123さん

https://www.moug.net/faq/viewtopic.php?t=79786
 
引用:
そのなかでExcelのシートを選択し、テーブルへ保存できるように出来ますでしょうか？

ワークシートや名前付きセル範囲の一覧を表示して
任意のシート/定義された名前を選択するためのコントロール
（リストボックスやコンボボックスなど）があれば。
 
引用:
もしくは、指定したシート名(sheet2)をテーブルへ保存できるように出来ますでしょうか。

引用:
DoCmd.TransferSpreadsheet acImport, , "T_データ", FileName, True, ""

DoCmd.TransferSpreadsheet acImport, , "T_データ", FileName, True, "sheet2!"
 
---------------------------------------------------------
 
ワークシートの場合はシート名の末尾に "!" を付加し、
名前付きセル範囲の場合は定義された名前をそのまま指定して下さい。
投稿日時: 20/10/16 13:34:30
投稿者: やっほー

sk　さん
早々のご連絡ありがとうございます。
解決致しました。