Excel VbScript报价问题

我使用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* *********"   

这里的问题是第一行和第三行以引号（“”）开始和结束

代码是

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主窗口后面的文件保存对话框有没有办法使这个保存对话框处于焦点？

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

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

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