ファイルを立ち上げ・保存するには

ekubomaru 2003-08-22 00:30:25 No: 79108

com1で任意のCSVファイル（book1.csv）を立ち上げ、その立ち上げたCSVファイルにデータを書き込み後com2でbook2.csvの名前で保存する方法を教えて下さい。
又book2.csv保存と同時に、そのデータを用いてある計算をさせて、答えをエクセル（CSVでもかまいません）表示をしたいのですが、併せて教えていただけませんか
使用コマンド釦は２個。

ファイルopenは下記で良いと思うのですが（もしかすると間違っているのかもしれません）、後が解りません。
Private Sub Command1_Click()
    Dim objEXCEL    As excel.Application
    Dim objBook1     As excel.Workbook
    Dim objSHEET1   As excel.Worksheet
    Dim pb3 As Integer

  Set objEXCEL = CreateObject("excel.application")
  Set objBook = objEXCEL.Workbooks.Open(App.Path & "\" & "book1.csv")
  Set objSHEET1 = objBook.Worksheets(1)

  objEXCEL.Visible = True

    'End With

    Set objBook1 = Nothing
    Set objSHEET1 = Nothing
    Set objEXCEL = Nothing

End Sub