Access에서 Excel 스프레드시트를 선택하라는 메시지가 표시됩니까?

Question

Excel 스프레드시트를 사용하여 둘 사이의 변경 사항을 추적하는 Microsoft Access 2007 데이터베이스가 있습니다. 매주 새 파일이 생성됩니다. 그런 다음 내가 작성한 몇 가지 사용자 정의 SQL 쿼리를 사용하여 두 가지를 비교합니다. 지금은 Linked Table Manager를 사용하여 연결했습니다. 그 안에는 현재 워크시트를 다시 선택하게 만드는 것 외에는 아무것도 하지 않는 것처럼 보이는 새 위치를 항상 묻는 옵션이 있습니다.

어쨌든 사용자가 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

메모:테스트되지 않았습니다.