powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Как с помощью Vbscript перевести файл из cvs в Excel 2007?
6 сообщений из 6, страница 1 из 1
Как с помощью Vbscript перевести файл из cvs в Excel 2007?
    #35053032
Aristo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
скрипт работает как часть DTS пакета на SQL SERVER 2000 после процедуры импорта запроса в файл csv.
Нужно полученный файл перевести в файл формата xlsx. Количество строк около 90000
Я в Vbscript полный ламер.
Помогите, плиз.
...
Рейтинг: 0 / 0
Как с помощью Vbscript перевести файл из cvs в Excel 2007?
    #35053109
Aristo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У меня сейчас так.
Set obj_excel_cvs = CreateObject("Excel.Application")
obj_excel_cvs.WorkBooks.Open temp_file1
obj_excel_cvs.ActiveWorkBook.SaveAs temp_file, xlNormal
obj_excel_cvs.WorkBooks.Close
obj_excel_cvs.quit

при вызове скрипта ошибка - метод SaveAs из класса WorkBook завершен неверно
...
Рейтинг: 0 / 0
Как с помощью Vbscript перевести файл из cvs в Excel 2007?
    #35053145
Aristo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
тьфу, не cvs а csv конечно.
...
Рейтинг: 0 / 0
Как с помощью Vbscript перевести файл из cvs в Excel 2007?
    #35053388
Aristo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Текущее состояние кода:
dim used_range
temp_cat = "C:\windows\temp\"
temp_file1 = "C:\windows\temp\temp.csv"
temp_file = temp_cat&"temp.xlsx"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set obj_excel_csv = CreateObject("Excel.Application")
obj_excel_csv.DisplayAlerts = False
obj_excel_csv.WorkBooks.Open temp_file1
obj_excel_csv.ActiveWorkBook.SaveAs temp_file,1
obj_excel_csv.WorkBooks.Close
obj_excel_csv.quit
obj_excel_csv.DisplayAlerts = true

Ругается на метод SaveAs , Invalid task result Value
...
Рейтинг: 0 / 0
Как с помощью Vbscript перевести файл из cvs в Excel 2007?
    #35053453
Фотография Ex_Soft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
тынць
_________________
"Helo, word!" - 17 errors 56 warnings
Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
Как с помощью Vbscript перевести файл из cvs в Excel 2007?
    #35054008
ps
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Aristo
obj_excel_csv.ActiveWorkBook.SaveAs temp_file,1

Ругается на метод SaveAs , Invalid task result Value
У меня вот так работает

.SaveAs temp_File, FileFormat= xlExcel
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Как с помощью Vbscript перевести файл из cvs в Excel 2007?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]