ファイルを立ち上げ・保存するには (ID:79108)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 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