将特定的xls列导出到txt
我喜欢从.xls文件导出2列到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 我试图做一个.bbs的.vbs执行此操作。
所有的代码都是从这个网站上获取的，我试着去修改它，但是我不能说它正在朝着正确的方向发展。 任何人都可以帮助一下，指出我正确的方向或任何事情？
你最好的select是学习如何debugging。 这将让你处理你的每一个“种类或错误”，或者至less在每行产生每个错误（并指定它）。 否则，你肯定会等待某人为你修复代码，这可能不太可能。
检查如何debugging独立的VBScript脚本？ 。 还有很多其他的来源。 基本技巧：
- 放置断点。
- 一步一步执行
- 使用
Debug.Print（在你的代码和直接窗口中），用Watches等检查variables的值