Я пишу макрос, который позволит пользователю импортировать данные в Excel, а затем автоматически создавать сводные таблицы. Самая сложная часть этого - это сводные таблицы, потому что мне нужно включить отдельный счетчик. Это, в свою очередь, требует добавления данных в модель данных. Регистратор макросов записывает следующее:
Workbooks("DataScientific.xlsm").Connections.Add2 _
"WorksheetConnection_DataScientific.xlsm!Table1", "", _
"WORKSHEET;C:\Users\myname\Desktop\DataScientific.xlsm", _
"DataScientific.xlsm!Table1", 7, True, False
Первую строку этого легко автоматизировать. Например:
ThisWorkbook.Connections.Add2 _
Остальные строки оказались проблемой. Одна из вещей, которые я пытался сделать, - это создать строку в ячейке, а затем указать макрос на ячейку: Например:
ThisWorkbook.Connections.Add2 _
Shee1.Range("D33"),"", _
Sheet1.Range("D34"), _
Sheet1.Range("D35"), 7, True, False
Конечно, это не работает. Я знаю, что формат ADD2 (String, String, Object, Object, Object, Object, Object)
Если я правильно понимаю, я могу использовать диапазон для указания объектов, но я не уверен, что могу сделать то же самое со строкой.
Честно говоря, я пробовал много разных вещей, ни одна из них не работала, и я не знаю, что делать дальше. Можно ли это сделать? Если это удастся сделать, я был бы очень рад, если бы кто-нибудь указал мне правильное направление. Спасибо большое за вашу помощь!
