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

Вход

Регистрация

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

 

= Мир MS Excel/QueryTable и импорт данных. Изменить путь импорта данных. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » QueryTable и импорт данных. Изменить путь импорта данных. (Макросы/Sub)
QueryTable и импорт данных. Изменить путь импорта данных.
khkanat Дата: Пятница, 09.08.2019, 11:33 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Добрый день.
Я ни разу не работал с QueryTable и вот возникла проблема. В макросе прописан путь к папке для импорта данных, а я хочу этот путь заменить на свой.
Как правильно в QueryTable изменить путь запроса?
Сам макрос описан ниже. Всем буду благодарен за помощь.

[vba]
Код
For i = 1 To 6
With xt(i)

On Error GoTo Err_Refresh
If i = 1 Then
.Range(.Range("H2"), .Range("N300000")).ClearContents
Else
.Range(.Range("G2"), .Range("N300000")).ClearContents
End If

.Range("A2").QueryTable.TextFilePlatform = 1251
.Range("A2").QueryTable.TextFileTextQualifier = xlTextQualifierNone
.Range("A2").QueryTable.Refresh BackgroundQuery:=False

End With
Next

Worksheets("start").Range("A2").QueryTable.TextFilePlatform = 1251
Worksheets("start").Range("A2").QueryTable.TextFileTextQualifier = xlTextQualifierNone
Worksheets("start").Range("A2").QueryTable.Refresh BackgroundQuery:=False

Err_Refresh:
Resume Next

End Sub
[/vba]


Сообщение отредактировал khkanat - Пятница, 09.08.2019, 16:26
 
Ответить
СообщениеДобрый день.
Я ни разу не работал с QueryTable и вот возникла проблема. В макросе прописан путь к папке для импорта данных, а я хочу этот путь заменить на свой.
Как правильно в QueryTable изменить путь запроса?
Сам макрос описан ниже. Всем буду благодарен за помощь.

[vba]
Код
For i = 1 To 6
With xt(i)

On Error GoTo Err_Refresh
If i = 1 Then
.Range(.Range("H2"), .Range("N300000")).ClearContents
Else
.Range(.Range("G2"), .Range("N300000")).ClearContents
End If

.Range("A2").QueryTable.TextFilePlatform = 1251
.Range("A2").QueryTable.TextFileTextQualifier = xlTextQualifierNone
.Range("A2").QueryTable.Refresh BackgroundQuery:=False

End With
Next

Worksheets("start").Range("A2").QueryTable.TextFilePlatform = 1251
Worksheets("start").Range("A2").QueryTable.TextFileTextQualifier = xlTextQualifierNone
Worksheets("start").Range("A2").QueryTable.Refresh BackgroundQuery:=False

Err_Refresh:
Resume Next

End Sub
[/vba]

Автор - khkanat
Дата добавления - 09.08.2019 в 11:33
китин Дата: Пятница, 09.08.2019, 11:37 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
khkanat, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума
- Исправьте название темы согласно п.2 Правил форума, конкретнее обозначьте проблему


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеkhkanat, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума
- Исправьте название темы согласно п.2 Правил форума, конкретнее обозначьте проблему

Автор - китин
Дата добавления - 09.08.2019 в 11:37
khkanat Дата: Пятница, 09.08.2019, 16:25 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Хочу обратить внимание, что мне нужно заменить только путь откуда брать файлы, а сами файлы не изменяться. Сейчас он ссылается на диск "W:\путь\", а я хочу чтоб он данные брал например с диска "X:\путь\"
 
Ответить
СообщениеХочу обратить внимание, что мне нужно заменить только путь откуда брать файлы, а сами файлы не изменяться. Сейчас он ссылается на диск "W:\путь\", а я хочу чтоб он данные брал например с диска "X:\путь\"

Автор - khkanat
Дата добавления - 09.08.2019 в 16:25
khkanat Дата: Понедельник, 12.08.2019, 14:50 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Для полноты картинки могу приложить полный макрос:
[vba]
Код
Private Sub CommandButton4_Click()
Dim xt(6)

    Set xt(1) = Worksheets("Стр1")
    Set xt(2) = Worksheets("Стр2")
    Set xt(3) = Worksheets("Стр3")
    Set xt(4) = Worksheets("Стр4")
    Set xt(5) = Worksheets("Стр5")
    Set xt(6) = Worksheets("Стр6")

For i = 1 To 6
With xt(i)
  
On Error GoTo Err_Refresh
If i = 1 Then
.Range(.Range("H2"), .Range("N300000")).ClearContents
Else
.Range(.Range("G2"), .Range("N300000")).ClearContents
End If
  
.Range("A2").QueryTable.TextFilePlatform = 1251
.Range("A2").QueryTable.TextFileTextQualifier = xlTextQualifierNone
.Range("A2").QueryTable.Refresh BackgroundQuery:=False
  
End With
Next
  
Worksheets("start").Range("A2").QueryTable.TextFilePlatform = 1251
Worksheets("start").Range("A2").QueryTable.TextFileTextQualifier = xlTextQualifierNone
Worksheets("start").Range("A2").QueryTable.Refresh BackgroundQuery:=False
  
Err_Refresh:
Resume Next
End Sub
[/vba]
 
Ответить
СообщениеДля полноты картинки могу приложить полный макрос:
[vba]
Код
Private Sub CommandButton4_Click()
Dim xt(6)

    Set xt(1) = Worksheets("Стр1")
    Set xt(2) = Worksheets("Стр2")
    Set xt(3) = Worksheets("Стр3")
    Set xt(4) = Worksheets("Стр4")
    Set xt(5) = Worksheets("Стр5")
    Set xt(6) = Worksheets("Стр6")

For i = 1 To 6
With xt(i)
  
On Error GoTo Err_Refresh
If i = 1 Then
.Range(.Range("H2"), .Range("N300000")).ClearContents
Else
.Range(.Range("G2"), .Range("N300000")).ClearContents
End If
  
.Range("A2").QueryTable.TextFilePlatform = 1251
.Range("A2").QueryTable.TextFileTextQualifier = xlTextQualifierNone
.Range("A2").QueryTable.Refresh BackgroundQuery:=False
  
End With
Next
  
Worksheets("start").Range("A2").QueryTable.TextFilePlatform = 1251
Worksheets("start").Range("A2").QueryTable.TextFileTextQualifier = xlTextQualifierNone
Worksheets("start").Range("A2").QueryTable.Refresh BackgroundQuery:=False
  
Err_Refresh:
Resume Next
End Sub
[/vba]

Автор - khkanat
Дата добавления - 12.08.2019 в 14:50
RAN Дата: Понедельник, 12.08.2019, 21:13 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
В макросе прописан путь к папке для импорта данных

В котором месте?


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
В макросе прописан путь к папке для импорта данных

В котором месте?

Автор - RAN
Дата добавления - 12.08.2019 в 21:13
boa Дата: Вторник, 13.08.2019, 10:05 | Сообщение № 6
Группа: Друзья
Ранг: Ветеран
Сообщений: 549
Репутация: 167 ±
Замечаний: 0% ±

365
здравствуйте, khkanat,
Для полноты картинки могу приложить полный макрос:

лучше
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума


 
Ответить
Сообщениездравствуйте, khkanat,
Для полноты картинки могу приложить полный макрос:

лучше
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума

Автор - boa
Дата добавления - 13.08.2019 в 10:05
khkanat Дата: Четверг, 29.08.2019, 11:53 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

лучше

Файл весит 30 мегов. не смогу приложить к сожалению.


Сообщение отредактировал khkanat - Четверг, 29.08.2019, 11:54
 
Ответить
Сообщение
лучше

Файл весит 30 мегов. не смогу приложить к сожалению.

Автор - khkanat
Дата добавления - 29.08.2019 в 11:53
boa Дата: Четверг, 29.08.2019, 12:39 | Сообщение № 8
Группа: Друзья
Ранг: Ветеран
Сообщений: 549
Репутация: 167 ±
Замечаний: 0% ±

365
khkanat,
а ни кому не интересно "переваривать" 30 мегов данных или километры кода.
для начала перенесите нужную таблицу в новый файл, потом удалите из нее лишние строки (оставьте десяток для наглядности) и сохраните.
вы даже не представляете на сколько он "усохнет"

и конечно, перенесите в новую книгу нужный(е) макрос(ы)


 
Ответить
Сообщениеkhkanat,
а ни кому не интересно "переваривать" 30 мегов данных или километры кода.
для начала перенесите нужную таблицу в новый файл, потом удалите из нее лишние строки (оставьте десяток для наглядности) и сохраните.
вы даже не представляете на сколько он "усохнет"

и конечно, перенесите в новую книгу нужный(е) макрос(ы)

Автор - boa
Дата добавления - 29.08.2019 в 12:39
khkanat Дата: Четверг, 29.08.2019, 17:01 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

khkanat,
а ни кому не интересно "переваривать" 30 мегов данных или километры кода.
для начала перенесите нужную таблицу в новый файл, потом удалите из нее лишние строки (оставьте десяток для наглядности) и сохраните.
вы даже не представляете на сколько он "усохнет"

и конечно, перенесите в новую книгу нужный(е) макрос(ы)


Так макрос не будет работать если я все остальное удалю. Я же не знаю как работает QueryTable .
 
Ответить
Сообщение
khkanat,
а ни кому не интересно "переваривать" 30 мегов данных или километры кода.
для начала перенесите нужную таблицу в новый файл, потом удалите из нее лишние строки (оставьте десяток для наглядности) и сохраните.
вы даже не представляете на сколько он "усохнет"

и конечно, перенесите в новую книгу нужный(е) макрос(ы)


Так макрос не будет работать если я все остальное удалю. Я же не знаю как работает QueryTable .

Автор - khkanat
Дата добавления - 29.08.2019 в 17:01
boa Дата: Четверг, 29.08.2019, 18:05 | Сообщение № 10
Группа: Друзья
Ранг: Ветеран
Сообщений: 549
Репутация: 167 ±
Замечаний: 0% ±

365
khkanat,
Коли все так плохо, попробуйте сами разобраться.
Когда-то я на данном форуме поднимал аналогичный вопрос в теме PowerQuery. Программное изменение пути к источнику данных


 
Ответить
Сообщениеkhkanat,
Коли все так плохо, попробуйте сами разобраться.
Когда-то я на данном форуме поднимал аналогичный вопрос в теме PowerQuery. Программное изменение пути к источнику данных

Автор - boa
Дата добавления - 29.08.2019 в 18:05
Мир MS Excel » Вопросы и решения » Вопросы по VBA » QueryTable и импорт данных. Изменить путь импорта данных. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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