導出特定的xls colums到txt

讓我們說列C和D.我也嘗試用_來分隔它們。 .xls有幾張紙，我只需要其中一張數據。你怎麼看待這個？

這是我到目前爲止。我從來沒有做過這樣的事情，我真的不知道我在做什麼rihgt /錯。我得到各種各樣的錯誤和難以理解的數字。

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

我試圖做到這一點與從.bat執行.vbs。

所有的代碼是從這個網站採取的，我試圖對它進行修改，但我不能說這是正確的方向。任何能夠幫助我的人，指出我朝着正確的方向還是任何事情？

來源

2015-05-22 Moberg

你有沒有發現貼有用嗎？請根據您發現的內容發佈反饋，投票和/或接受。 –

你最好打賭就是學習如何調試。這將讓你處理你的每一種「所有類型或錯誤」，或者至少在每一行產生每個錯誤（並指定它）。否則，你肯定會等待某人爲你修復代碼，這可能不太可能。

檢查How do I debug a stand-alone VBScript script?。還有很多其他來源。基本提示：

地方斷點。
執行步步
檢查變量的值，用Debug.Print（在你的代碼，並在立即窗口），手錶等

來源

2015-05-23 03:17:34

導出特定的xls colums到txt

回答

相關問題