Диалоговое окно импорта внешних данных

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Диалоговое окно импорта внешних данных (Макросы/Sub)

rever27

Дата: Четверг, 16.07.2015, 23:20 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 141

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Имеется функция импорта данных из другого файла. При записи макрорекордором получается данная строка.
[vba]

Код

With ActiveSheet.QueryTables.Add("TEXT;C:\Program Files (x86)\ExpertBalanceList.csv", Destination:=Range("$A$1"))

[/vba]
Как сделать, чтобы вместо уже указанного мою диапазона появлялось диалоговое окно на поиск необходимого файла. Желательно с уже заполнеными данными диска С:/, имени ExpertBalanceList и csv форматом

Ответить

KSV

Дата: Пятница, 17.07.2015, 00:05 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

Самое простое, так:[vba]

Код

Sub Test()
       Dim f
       f = Application.GetOpenFilename("Файлы *.csv, *.csv")
       If f = False Then Exit Sub
       With ActiveSheet.QueryTables.Add("TEXT;" & f, Range("$A$1"))

           ...

       End With
End Sub

[/vba]

или так:[vba]

Код

Sub Test2()
      Dim f$

      With Application.FileDialog(msoFileDialogOpen)
          .FilterIndex = 6 ' Текстовые файлы (*.prn;*.txt;*.csv)
          .InitialFileName = "C:\Program Files (x86)\ExpertBalanceList.csv"
          If Not .Show Then Exit Sub
          f = .SelectedItems(1)
      End With

      With ActiveSheet.QueryTables.Add("TEXT;" & f, Range("$A$1"))

          ...

      End With
End Sub

[/vba]