0

スプレッドシートのワークブックを私の場所にある別のtxtファイルに保存する必要があります。

しかし、ボタンクリックで使用しているコードは、データを目的の場所に取得しており、ファイルには、iamが関心のない特殊文字が含まれています。

印刷プレビュー画面で詳細を取得するときに、誰かがtxtファイルを取得するのを手伝ってくれますか。

使用したコード：

Private Sub CommandButton1_Click()
Dim xlApp As Object
  Dim xlBook As Object
  Dim xlSheet As Object
  Dim strOutputFileName
  Set xlApp = CreateObject("Excel.Application")
  Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\bera02a\Desktop\Arun_TAT_Testing_orig_14022013.xls")
  For Each xlSheet In xlBook.Worksheets
    strOutputFileName = "C:\Documents and Settings\bera02a\Desktop\" & xlSheet.Name & ".txt"
    xlSheet.SaveAs strOutputFileName
  Next
  xlApp.Quit

End Sub
4

1 に答える 1

2

間違った出力の原因は、目的の保存形式を指定していないことだと思います。保存しているコード行を次のように置き換えてみてください。

xlSheet.SaveAs Filename:=strOutputFileName, FileFormat:=xlUnicodeText

これにより、出力がUnicodeテキストファイルとして定義されます。これが必要なことだと思います。

于 2013-02-15T10:27:17.967 に答える