0

我正在使用 Vbscript 将一些数据写入 excel 然后我将此 excel 对象保存为 txt 文件。我的问题是在将某些行保存为文本文件后包含引号“。下面是我的代码可以帮助我记录这个。

我的输出文本文件是：

"Rules*V*ZBEA*892**0010*10*IBM-01**"                    
30,000.00*01/08/2012*21/08/2012****0000013556*01***2600
"Scale value* *********"

这里的问题是第 1 行和第 3 行以引号 (" ") 开头和结尾。

代码是

Dim objXL1,name
Set objXL1 = CreateObject("Excel.Application")
objXL1.Workbooks.Add
objXL1.Cells(1 ,1) =  "Rules*V*ZBEA*892**0010*10*IBM-01** "
objXL1.Cells(2,1) =  "30,000.00*01/08/2012*21/08/2012****0000013556*01***2600"
objXL1.Cells(3 ,1) =  "Scale value* *********"
name = objXL1.GetSaveAsFilename(,"Text(MS-DOS)(*.txt),*.txt")
objXL1.ActiveWorkbook.SaveAs   name ,21 ,,21 
objXL1.ActiveWorkbook.Close 0
objXL1.quit

这里还有一个问题是我正在使用 SaveAs 方法来获取文件名。当执行到这一行时，隐藏在主 IE 窗口后面的文件保存对话框有没有办法让这个保存对话框成为焦点？

4

1 回答 1

0

我认为这是因为空格。在您的代码中，第一行中有一个尾随空格。

"Rules*V*ZBEA*892**0010*10*IBM-01** "
-----------------------------------^-

如果要导出多个单元格，则需要封装这些单元格以识别单元格值的开始和结束位置。

于 2012-08-24T10:45:49.567 回答