Выбор файла excel при импорте в access

@crazydog · Регистрация: 27.04.2022

Author24 — интернет-сервис помощи студентам

Здравствуйте. Помогите с решением очередной рабочей задачи.
Пригалаю ниже свой код, что уже удалось сделать.
Суть задачи - есть некий файл excel. В него периодически вносят данные. Эти данные из разных филиалов должны синхронизироваться в одну бд access. Нужно при нажатии кнопки через проводник выбирать произвольный файл (а не тот который прописан в скрипте). Заранее спасибо

SQL

Private Sub Выгрузка_Click()
xlFile = "c:\Users\user\Desktop\111\3333.xlsx"
xlSheetName = "Лист1"
dbFile = CurrentDb.Name
dbTableName = "Выгрузка"
     
SET acApp = CreateObject("Access.Application")
acApp.OpenCurrentDatabase dbFile
     
SET acDoCmd = acApp.DoCmd
acDoCmd.TransferSpreadsheet 0, 9, dbTableName, xlFile, TRUE, xlSheetName & "!"
     
acApp.Quit
END Sub

@Панург · 19.07.2023, 12:47

Сообщение от crazydog

Нужно при нажатии кнопки через проводник выбирать произвольный файл (а не тот который прописан в скрипте).

Объект FileDialog (Office)

@Eugene-LS · 20.07.2023, 07:07

Сообщение от crazydog

Visual Basic

1	SET acApp = CreateObject("Access.Application")

Зачем?!

Visual Basic

1	SET acDoCmd = acApp.DoCmd

Зачем?!
Кто вам такое посоветовал?

@crazydog · 20.07.2023, 07:11 **[ТС]**

Нашел готовый пример в интернете) Я не сильно силен в программировании

@Eugene-LS · 20.07.2023, 07:44

Сообщение от crazydog

Я не сильно силен в программировании

Попробуйте так (без изысков для начала):

Visual Basic

Private Sub Выгрузка_Click()
Dim sExcelFilePath As String
Const sExcelSheetName As String = "Лист1"
Const sTableName As String = "Выгрузка"
    
    With Application.FileDialog(1) '1 = msoFileDialogOpen
        .Filters.Clear               ' Зачистка фильтра
        .AllowMultiSelect = False    ' Выбор нескольких файлов = OFF
        .Filters.Add "Файлы MS Excel", "*.xlsx", 1
        If .Show Then
            sExcelFilePath = .SelectedItems(1)
        End If
    End With
    
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, sTableName, _
                sExcelFilePath, True, sExcelSheetName & "!"
 
End Sub

Выбор файла excel при импорте в access

Решение

Решение

@Панург Мы один, давай на "ты" 3598 / 1327 / 323 Регистрация: 16.06.2016 Сообщений: 3,141
	19.07.2023, 12:47	2
	Сообщение было отмечено Eugene-LS как решение Решение Сообщение от crazydog Нужно при нажатии кнопки через проводник выбирать произвольный файл (а не тот который прописан в скрипте). Объект FileDialog (Office) 0

@crazydog 0 / 0 / 0 Регистрация: 27.04.2022 Сообщений: 16
	20.07.2023, 07:11 [ТС]	4
	Нашел готовый пример в интернете) Я не сильно силен в программировании 0

	20.07.2023, 07:44