投稿日	： 2004/03/17(Wed) 14:13
投稿者	： one
Ｅメール	：
ＵＲＬ	：
タイトル	： サンプルソースです。

Ｃドライブ直下に in.txt というファイルを置き、そのファイルに

"""文字列"""

というデータを入力してください。

適当な新規Ｅｘｃｅｌにボタンを作り、クリック時にこのソースを付け加えて
いただくと今問題になっているところがわかってもらえるかと思います。
（Ｃドライブ直下に out.xls というファイルが出力されます。）

現在も調べているんですが、なかなか良い方法が見つからず・・・です。

何か良い方法がありましたらよろしくお願いします。


Private Sub CommandButton1_Click()

    'Excel Bind
    Dim xlApp_Out   As Excel.Application
    Dim xlApp_In1   As Excel.Application

    Dim xlBook_Out  As Excel.Workbook
    Dim xlSheet_Out As Excel.Worksheet

    '出力ファイル
    Set xlApp_Out = CreateObject("Excel.Application")
    Set xlBook_Out = xlApp_Out.Workbooks.Add
    Set xlSheet_Out = xlBook_Out.Worksheets(1)

    '既存のファイル
    Set xlApp_In1 = New Excel.Application


    InputFilePath1 = "C:\in.txt"        '既存のファイル
    OutputFilePath = "C:\out.xls"       '出力ファイル


    '既存のファイルを読み込む
    xlApp_In1.Workbooks.OpenText FileName:=InputFilePath1, DataType:=xlDelimited

    '新規のExcelに出力
Debug.Print xlApp_In1.Cells(1, 1).Value
    xlSheet_Out.Cells(1, 1).Value = xlApp_In1.Cells(1, 1).Value

    '出力ファイルを保存する
    xlSheet_Out.SaveAs OutputFilePath

    'Excel Close
    xlApp_Out.Quit
    xlApp_In1.Quit

    'Object Free
    Set xlSheet_Out = Nothing
    Set xlApp_In1 = Nothing

End Sub

★ - 書式（テキスト）を指定してファイル出力 - one 03/17-11:40No.8407
• 補足 - one 03/17-11:58 No.8408
  • Re: 補足 - とろ 03/17-12:40 No.8409
    • 早速ありがとうございます！ - one 03/17-13:36 No.8410
      • サンプルソースです。 - one 03/17-14:13 No.8411
  • サンプルにて - one 03/19-01:14 No.8436
    • 書式の設定 - one 03/19-17:14 No.8441
    • 本当にありがとうございました！ - one 03/20-08:18 No.8445