Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Экспорт данных html в таблицу excel, при помощи формы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Экспорт данных html в таблицу excel, при помощи формы (Макросы Sub)
Экспорт данных html в таблицу excel, при помощи формы
diJi00 Дата: Пятница, 04.10.2013, 13:14 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Задача автоматизировать импорт файла html в таблицу excel, с возможностью указания пути к файлу html, который расположен на компьютере, и не имеет постоянного адресного пути.
Всё это вручную проделать легко получается, но.. нудно делать кучу операций. Макрорекордером запись делал, но путь к файлу он выдаёт постоянный, а мне бы с возможностью выбора (желательно окном проводника, но можно и любыми другими методами). Помогите, буду благодарен!
 
Ответить
СообщениеЗадача автоматизировать импорт файла html в таблицу excel, с возможностью указания пути к файлу html, который расположен на компьютере, и не имеет постоянного адресного пути.
Всё это вручную проделать легко получается, но.. нудно делать кучу операций. Макрорекордером запись делал, но путь к файлу он выдаёт постоянный, а мне бы с возможностью выбора (желательно окном проводника, но можно и любыми другими методами). Помогите, буду благодарен!
Автор - diJi00
Дата добавления - 04.10.2013 в 13:14
SkyPro Дата: Пятница, 04.10.2013, 13:17 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
А приложить ваш, записанный макрорекордером, код слабо?

skypro1111@gmail.com
 
Ответить
СообщениеА приложить ваш, записанный макрорекордером, код слабо?
Автор - SkyPro
Дата добавления - 04.10.2013 в 13:17
RAN Дата: Пятница, 04.10.2013, 13:20 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Смотрите в сторону
[vba]
Код
Application.FileDialog
[/vba]
или
[vba]
Код
Application.GetOpenFilename
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеСмотрите в сторону
[vba]
Код
Application.FileDialog
[/vba]
или
[vba]
Код
Application.GetOpenFilename
[/vba]
Автор - RAN
Дата добавления - 04.10.2013 в 13:20
diJi00 Дата: Пятница, 04.10.2013, 13:20 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub Ìàêðîñ2()
'
' Ìàêðîñ2 Ìàêðîñ
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;file:///D:/Zakaz/IP/pechniksergej/002/PECH_15MM_1.HTML", Destination:= _
Range("$A$1"))
.Name = "PECH_15MM_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "7"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub Ìàêðîñ2()
'
' Ìàêðîñ2 Ìàêðîñ
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;file:///D:/Zakaz/IP/pechniksergej/002/PECH_15MM_1.HTML", Destination:= _
Range("$A$1"))
.Name = "PECH_15MM_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "7"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
[/vba]
Автор - diJi00
Дата добавления - 04.10.2013 в 13:20
SkyPro Дата: Пятница, 04.10.2013, 13:25 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
Оформляйте коды тегами.

Вот так должно работать:
[vba]
Код
Sub SelectHtml()
      Dim fd As FileDialog
      Set fd = Application.FileDialog(msoFileDialogFilePicker)
      With fd
      .AllowMultiSelect = False
          If .Show = -1 Then
'###############################################
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;file:///" & fd.SelectedItems(1), Destination:=Range("$A$1"))
.Name = "PECH_15MM_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "7"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
'###############################################
          End If
      End With
      Set fd = Nothing
End Sub

[/vba]

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Пятница, 04.10.2013, 13:26
 
Ответить
СообщениеОформляйте коды тегами.

Вот так должно работать:
[vba]
Код
Sub SelectHtml()
      Dim fd As FileDialog
      Set fd = Application.FileDialog(msoFileDialogFilePicker)
      With fd
      .AllowMultiSelect = False
          If .Show = -1 Then
'###############################################
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;file:///" & fd.SelectedItems(1), Destination:=Range("$A$1"))
.Name = "PECH_15MM_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "7"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
'###############################################
          End If
      End With
      Set fd = Nothing
End Sub

[/vba]
Автор - SkyPro
Дата добавления - 04.10.2013 в 13:25
diJi00 Дата: Пятница, 04.10.2013, 13:29 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
SkyPro, Спасибо большое! знал, что помогут здесь, но не мог подумать что так быстро!
 
Ответить
СообщениеSkyPro, Спасибо большое! знал, что помогут здесь, но не мог подумать что так быстро!
Автор - diJi00
Дата добавления - 04.10.2013 в 13:29
diJi00 Дата: Пятница, 04.10.2013, 13:52 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
А вот папку "D:\Zakaz" по умолчанию при открытии проводника, сделать можно?
 
Ответить
СообщениеА вот папку "D:\Zakaz" по умолчанию при открытии проводника, сделать можно?
Автор - diJi00
Дата добавления - 04.10.2013 в 13:52
RAN Дата: Пятница, 04.10.2013, 14:00 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
.InitialFileName = "D:\Zakaz"
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
.InitialFileName = "D:\Zakaz"
[/vba]
Автор - RAN
Дата добавления - 04.10.2013 в 14:00
diJi00 Дата: Пятница, 04.10.2013, 14:10 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
и точку поставить)
В проводнике отображать, только файлы .html
 
Ответить
Сообщениеи точку поставить)
В проводнике отображать, только файлы .html
Автор - diJi00
Дата добавления - 04.10.2013 в 14:10
RAN Дата: Пятница, 04.10.2013, 14:14 | Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Ну неужели справку поглядеть сложнее, чем сюда писать?
[vba]
Код
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеНу неужели справку поглядеть сложнее, чем сюда писать?
[vba]
Код
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
[/vba]
Автор - RAN
Дата добавления - 04.10.2013 в 14:14
diJi00 Дата: Пятница, 04.10.2013, 15:18 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
RAN, Спасибо, Тема закрыта..
 
Ответить
СообщениеRAN, Спасибо, Тема закрыта..
Автор - diJi00
Дата добавления - 04.10.2013 в 15:18
diJi00 Дата: Среда, 09.10.2013, 12:06 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub SelectHtml()
     Dim fd As FileDialog
     Set fd = Application.FileDialog(msoFileDialogFilePicker)
     With fd
     .AllowMultiSelect = False
     .InitialFileName = "D:\Zakaz"
     .Filters.Add "HTML files", "*.html", 1
         If .Show = -1 Then
'###############################################
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;file:///" & fd.SelectedItems(1), Destination:=Range("$A$1"))
.Name = ""
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "7"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
'###############################################
         End If
     End With
     Set fd = Nothing
End Sub
[/vba]
не получается сделать вставку экспортных данных в неактивный лист екселя. Нужна помощь
Range("ТаблицаИмпорта!$A$1") не работает
 
Ответить
Сообщение[vba]
Код
Sub SelectHtml()
     Dim fd As FileDialog
     Set fd = Application.FileDialog(msoFileDialogFilePicker)
     With fd
     .AllowMultiSelect = False
     .InitialFileName = "D:\Zakaz"
     .Filters.Add "HTML files", "*.html", 1
         If .Show = -1 Then
'###############################################
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;file:///" & fd.SelectedItems(1), Destination:=Range("$A$1"))
.Name = ""
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "7"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
'###############################################
         End If
     End With
     Set fd = Nothing
End Sub
[/vba]
не получается сделать вставку экспортных данных в неактивный лист екселя. Нужна помощь
Range("ТаблицаИмпорта!$A$1") не работает
Автор - diJi00
Дата добавления - 09.10.2013 в 12:06
RAN Дата: Среда, 09.10.2013, 12:32 | Сообщение № 13
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Значит активируйте.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеЗначит активируйте.
Автор - RAN
Дата добавления - 09.10.2013 в 12:32
diJi00 Дата: Среда, 09.10.2013, 13:09 | Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
RAN, можно узнать как?
 
Ответить
СообщениеRAN, можно узнать как?
Автор - diJi00
Дата добавления - 09.10.2013 в 13:09
RAN Дата: Среда, 09.10.2013, 13:47 | Сообщение № 15
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
Sheets("ТаблицаИмпорта").Activate
[/vba]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Среда, 09.10.2013, 13:48
 
Ответить
Сообщение[vba]
Код
Sheets("ТаблицаИмпорта").Activate
[/vba]
Автор - RAN
Дата добавления - 09.10.2013 в 13:47
SkyPro Дата: Среда, 09.10.2013, 13:49 | Сообщение № 16
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
[offtop]deleted

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Среда, 09.10.2013, 13:49
 
Ответить
Сообщение[offtop]deleted
Автор - SkyPro
Дата добавления - 09.10.2013 в 13:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Экспорт данных html в таблицу excel, при помощи формы (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!