Access で Excel スプレッドシートを選択するように要求しますか?

Question

私は、Excel スプレッドシートを使用して 2 つの間の変更を追跡する Microsoft Access 2007 データベースを持っています。毎週新しいファイルが生成されます。次に、それらの 2 つを、私が作成したカスタム SQL クエリを使用して比較します。現在、リンク テーブル マネージャーを使用してそれらをリンクしています。その中に、常に新しい場所を要求するオプションがありますが、これは、現時点ではワークシートを再選択する以外に何もしないようです。

Access ファイルを開くたびに、ユーザーに Excel スプレッドシートを選択するよう常に求める方法はありますか?

Answer 1

これを使用するには、参照を設定してからVBA (tools-References)検索してクリックする必要があります"Microsoft Office"。

Dim myDialog As FileDialog
Dim strFile As String
Dim strSearchPath as string
Dim vrtSelectedItem As Variant
Set myDialog = Application.FileDialog(msoFileDialogOpen)

With myDialog
    .AllowMultiSelect = True
     .Filters.Add "Excel Files", "*.xls", 1
    .Title = "Select the file"
    .InitialFileName = strSearchPath
    If .Show = -1 Then   
        For Each vrtSelectedItem In .SelectedItems         
          ImportIt (vrtSelectedItem)
        Next vrtSelectedItem
    Else
        'The user pressed Cancel.
    End If
   Set myDialog = Nothing
End With

注記：テストされていません。