Arhn - архитектура программирования

Не удалось передать большое количество строк .csv в Excel 2007

Я использовал приведенный ниже фрагмент кода VBScript, чтобы переместить ежечасное падение .csv в файл Excel. Он работает как часы, за исключением того, что недавно .csv преодолел ограничение в 65536 строк. Машина залита всплывающими окнами от средства проверки совместимости, а потом я понял, что она использует Excel 2003, даже через установленный Excel 2007. Не уверен, почему это происходит, даже когда объект Excel.Application.12 вызывается явно:

Dim oExcel
Set oExcel = CreateObject("Excel.Application.12")
With oExcel
    .DefaultSaveFormat=51
    .Workbooks.Open sourceFile
    .Sheets(1).Columns("A").TextToColumns .Range("A1"), xlDelimited, , , , True
    .ActiveWorkbook.SaveAs outputFile, xlNormal
    .Quit
End With

Как заставить этот сценарий извлекать количество строк, превышающее 65536, для импорта в Excel 2007 без запроса средства проверки совместимости, сохраняя при этом все исходные строки?

Некоторая дополнительная информация:

  1. Совершенно новая машина
  2. Запуск ОС Windows 7 x64 bit
  3. Установлена ​​только одна версия Office: Office 2007.
csv file-format export-to-excel excel-2007 vbscript
20.09.2012

  • Просто добавил дополнительную информацию. Нет, это не мультиверсия, установлен только Office 2007 20.09.2012
  • Не проблема. Что ж, я пробовал с форматом по умолчанию и без него, а также с расширением .xlsx. Ни один не помог 20.09.2012
  • Добавил ключ под Excel вместо Word, плашек нет. Это безумие! :) 21.09.2012

Ответы:


1

Попробуйте добавить fileformat:=51, как советовал Ron de Bruin.

Ниже извлечено из редактирования ОП к Вопросу:

Ниже изменение сработало!:

 Dim oExcel  
 Set oExcel = CreateObject("Excel.Application.12")  
 With oExcel  
    .DefaultSaveFormat=51  
    .Workbooks.Open sourceFile  
    .Sheets(1).Columns("A").TextToColumns .Range("A1"), xlDelimited, , , , True  
    .ActiveWorkbook.SaveAs outputFile, 51  
    .Quit  
 End With

Также убедитесь, что расширение файла .xlsx.

20.09.2012
  • спасибо за вашу настойчивость. Я изменил SaveAs на outputFile, 51, и это сработало! 21.09.2012
    • Новые материалы
    Коллекции публикаций по глубокому обучению
    Последние пару месяцев я создавал коллекции последних академических публикаций по различным подполям глубокого обучения в моем блоге https://amundtveit.com - эта публикация дает обзор 25..
    Представляем: Pepita
    Фреймворк JavaScript с открытым исходным кодом Я знаю, что недостатка в фреймворках JavaScript нет. Но я просто не мог остановиться. Я хотел написать что-то сам, со своими собственными..
    Советы по коду Laravel #2
    1-) Найти // You can specify the columns you need // in when you use the find method on a model User::find(‘id’, [‘email’,’name’]); // You can increment or decrement // a field in..
    Работа с временными рядами спутниковых изображений, часть 3 (аналитика данных)
    Анализ временных рядов спутниковых изображений для данных наблюдений за большой Землей (arXiv) Автор: Рольф Симоэс , Жильберто Камара , Жильберто Кейрос , Фелипе Соуза , Педро Р. Андраде ,..
    3 способа решить квадратное уравнение (3-й мой любимый) -
    1. Методом факторизации — 2. Используя квадратичную формулу — 3. Заполнив квадрат — Давайте поймем это, решив это простое уравнение: Мы пытаемся сделать LHS,..
    Создание VR-миров с A-Frame
    Виртуальная реальность (и дополненная реальность) стали главными модными терминами в образовательных технологиях. С недорогими VR-гарнитурами, такими как Google Cardboard , и использованием..
    Демистификация рекурсии
    КОДЕКС Демистификация рекурсии Упрощенная концепция ошеломляющей О чем весь этот шум? Рекурсия, кажется, единственная тема, от которой у каждого начинающего студента-информатика..