2015-05-22 1 views
1

Мне нравится экспортировать 2 столбца из файла .xls в txt.Экспорт конкретных xls colums в txt

Скажем, колонки C и D. Я также пытаюсь отделить их от _. . Xls имеют несколько листов, и мне нужны только данные из одного из них. Как вы это восприняли?

Это то, что у меня есть до сих пор. Я никогда не делал ничего подобного раньше, и я честно не знаю, что я делаю Rihgt/wrong. Я получаю все виды или ошибки и получаю тяжелую фигуру.

Dim saveDir 
set fso = CreateObject("Scripting.FileSystemObject") 
set shell = CreateObject("WScript.Shell") 
set objExcel = CreateObject("Excel.Application") 
Set objArgs = WScript.Arguments 
Set fso = CreateObject("Scripting.FileSystemObject") 

set top = fso.GetFolder(shell.CurrentDirectory) 
DirBase = top & "\" & "jipCOPY" & "\" 

    Set objExcel = CreateObject("Excel.application") 
    set objExcelBook = objExcel.Workbooks.Open(DirBase & "1.xls") 
    objExcel.application.visible=false 
    objExcel.application.displayalerts=false 

    Set puCols = objExcel.Range("C13","C15") 
    Set poCols = objExcel.Range("D13","D15") 

Const ForWriting = 2 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.OpenTextFile("jipDATA.txt", ForWriting) 
objFile.WriteLine puCols & "_" & poCols 
objFile.Close 


    objExcel.Application.Quit 
    objExcel.Quit 
    Set objExcel = Nothing 
    set objExcelBook = Nothing 

Я пытаюсь сделать это с помощью .vbs, выполненных из .bat.

Весь код взят с этого сайта, и я попытался его модифицировать, но я не могу сказать, что он идет в правильном направлении. Любой, кто мог бы немного помочь, указать мне в правильном направлении или на любую вещь?

+0

ли вы что-нибудь отвечало полезным? Пожалуйста, отправляйте отзывы, голосуйте и/или принимайте в соответствии с тем, что вы нашли. –

ответ

0

Ваш лучший выбор - научиться отлаживать. Это позволит вам разобраться с каждым из ваших «всех видов или ошибок» или, по крайней мере, опубликовать каждую строку (и указать ее). В противном случае вы обязаны ждать, пока кто-то исправит код для вас, это может быть маловероятно.

Проверить How do I debug a stand-alone VBScript script?. Есть много других источников. Основные советы:

  • Место контрольных точек.
  • Выполните шаг за шагом
  • Осмотреть значения переменных, с Debug.Print (в коде и в ближайшем окне), с часами и т.д.
Смежные вопросы