Извлечь данные таблицы базы данных и вставить в другой лист Excel

Question

Я хочу получить данные из базы данных oracle и вставить полные данные таблицы в отдельный лист Excel. Я пробовал приведенный ниже код, но получаю сообщение об ошибке типа «индекс вне диапазона».

Answer 1

Почему вы получаете ошибку (только объяснение)

Workbooks(sFilewithPath) не работает с полным путем, а только с именем файла Workbooks(sFileNameOnly). В любом случае, я настоятельно рекомендую использовать метод ниже:

Решение

Используйте это, чтобы открыть вашу рабочую книгу и сослаться на переменную MyWb

Dim MyWb As Workbook
Set MyWb = Workbooks.Open(sFilewithPath)

Thes use эта переменная для доступа к открытой книге WOOK

MyWb.Worksheets("Sheet1").Range("A1").CopyFromRecordset rs

Не забудьте закрыть книгу в конце, иначе она останется открытой.

MyWb.Close SaveChanges:=False