| タイトル | ： エクセル形式CSVの編集について |
| 記事No | ： 3526 |
| 投稿日 | ： 2006/04/24(Mon) 07:39 |
| 投稿者 | ： くま |
[OSのVer]：WindowsXP [VBのVer]：VB.NET
はじめまして、VBをはじめてまだ日が浅くてわからないことばかりですが宜しくお願いします。
下記のようなエクセル形式のCSVファイルでbを検索し、その3列目と4列目の数字を別の数字に
変更したいのですが、エクセルに数字すら書き込めない状態です。エクセル形式のCSVではCELL関数は
使えないのでしょうか？教えてください。宜しくお願いします。
あ い う え お
a 1 2 3 4
b 4 1 2 3
c 5 6 7 4
d 3 4 3 4
e 1 2 3 4
以下途中のプログラムです。
ホームページ内の.NETからExcelの基本的な操作方法をまねてさせていただいてます。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Dim ExcelFilePath As String = "C:\test\test.csv"
Dim ExcelApp As New Excel.Application
Dim ExcelBooks As Excel.Workbooks = ExcelApp.Workbooks
Dim ExcelBook As Excel.Workbook = ExcelBooks.Open(ExcelFilePath)
Dim ExcelSheets As Excel.Sheets = ExcelBook.Worksheets
Dim ExcelSheet As Excel.Worksheet = ExcelSheets.Item(1)
'Excelを表示
ExcelApp.Visible = True
ExcelSheet.Cells("C4").Value = 1
'ExcelSheet.Cellsの開放
MRComObject(ExcelSheet.Cells)
ExcelSheet.Cells("D4").Value = 1
'ExcelSheet.Cellsの開放
MRComObject(ExcelSheet.Cells)
'ExcelSheetの開放
MRComObject(ExcelSheet)
'ExcelSheetsの開放
MRComObject(ExcelSheets)
'ExcelBookを閉じる
ExcelBook.Close(False)
'ExcelBookの開放
MRComObject(ExcelBook)
'ExcelBooksの開放
MRComObject(ExcelBooks)
'CSVファイルを閉じる
ExcelApp.Quit()
'ExcelAppの開放
MRComObject(ExcelApp)
MessageBox.Show("変換終了")
End Sub
'COM オブジェクトへの参照を解放するプロシージャ
Private Sub MRComObject(ByRef objCom As Object)
'COM オブジェクトの使用後、明示的に COM オブジェクトへの参照を解放する
Try
'提供されたランタイム呼び出し可能ラッパーの参照カウントをデクリメントします
If Not objCom Is Nothing AndAlso System.Runtime.InteropServices. _
Marshal.IsComObject(objCom) Then
Dim I As Integer
Do
I = System.Runtime.InteropServices.Marshal.ReleaseComObject(objCom)
Loop Until I <= 0
End If
Catch
Finally
'参照を解除する
objCom = Nothing
End Try
End Sub
End Class
|