Question

我想将.xls文件中的2列导出到txt。

让我们说C和D列。我也试图用_分隔它们。 .xls有几张，我只需要其中一张的数据。你是如何重新开始的？

这是我到目前为止所拥有的。我之前从未做过这样的事情，老实说我不知道我在做什么rihgt /错。我得到各种各样的错误，并且很难找到vbs。

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来执行此操作。

所有代码都来自这个网站，我试图修改它，但我不能说它是正确的方向。任何能帮助我的人，指向正确的方向或任何事情？

Answer 1

最好的办法是学习如何调试。这将让你处理你的每一个＆＃34;所有种类或错误＆＃34;，或者至少发布哪一行产生每个错误（并指定它）。否则，您一定会等待某人为您修复代码，这可能不太可能。

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

放置断点。
逐步执行
使用Debug.Print（在您的代码中和在即时窗口中）使用手表等检查变量的值。

将特定xls列导出到txt

1 个答案: