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 に答える