自己写的Excel

1. #Region "エクセルを出力" 
2.     Private beforeTime As DateTime
3.     Private afterTime As DateTime
4.     ''' <summary> 
5.     '''新規エクセル  
6.     ''' </summary> 
7.     ''' <param name="Application">エクセルのアプリケーション</param> 
8.     ''' <param name="newWorkbook">エクセルのワークブック</param> 
9.     ''' <param name="newWorksheet">エクセルのシート</param> 
10.     ''' <remarks></remarks> 
11.     Private Function newExcel(ByVal Application As Excel.Application, ByVal newWorkbook As Excel.Workbook, _
12.                         ByVal newWorksheet As Excel.Worksheet) As Hashtable
13.         Dim excelHashTbale As New Hashtable
15.         Application = New Excel.Application
16.         '新規ワークブック 
17.         newWorkbook = Application.Workbooks.Add()
18.         Application.Visible = False
19.         Application.DisplayAlerts = False
20.         '新規シート 
21.         'newWorksheet = newWorkbook.Worksheets.Add(DBNull.Value, DBNull.Value, 3) 
22.         'newWorksheet = CType(newWorkbook.Worksheets.Add(), Excel.Worksheet) 
23.         newWorksheet = newWorkbook.Worksheets.Item("sheet1")
25.         excelHashTbale.Add("App", Application)
26.         excelHashTbale.Add("workbook", newWorkbook)
27.         excelHashTbale.Add("worksheet", newWorksheet)
29.         Return excelHashTbale
31.     End Function
33.     ''' <summary> 
34.     ''' 保存エクセル 
35.     ''' </summary> 
36.     ''' <param name="newWorkbook">エクセルのワークブック</param> 
37.     ''' <param name="strPath">エクセル保存のパス</param> 
38.     ''' <param name="strExcelName">エクセルの名称</param> 
39.     ''' <remarks></remarks> 
40.     Private Sub saveExcel(ByVal newWorkbook As Excel.Workbook, ByVal strPath As String, _
41.                             ByVal strExcelName As String)
42.         newWorkbook.SaveAs(strPath & strExcelName)
43.     End Sub
45.     ''' <summary> 
46.     ''' エクセルを閉じる 
47.     ''' </summary> 
48.     ''' <param name="newWorkbook">エクセルのワークブック</param> 
49.     ''' <param name="Application">エクセルのアプリケーション</param> 
50.     ''' <remarks></remarks> 
51.     Private Sub closeExcel(ByVal newWorkbook As Excel.Workbook, ByVal Application As Excel.Application)
52.         Dim processlist() As Process = Process.GetProcessesByName("EXCEL")
53.         Dim startTime As Date
54.         If Not IsNothing(newWorkbook) Then newWorkbook.Close()
55.         'プロセスの終了 
56.         If Not IsNothing(Application) Then
57.             Application.Quit()
58.             System.Runtime.InteropServices.Marshal.ReleaseComObject(Application)
59.             Application = Nothing
60.         End If
62.         For Each kp As Process In processlist
63.             startTime = kp.StartTime
64.             If startTime > beforeTime AndAlso startTime < afterTime Then
65.                 kp.Kill()
66.             End If
67.         Next
68.         GC.Collect()
69.     End Sub
71.     ''' <summary> 
72.     ''' エクセルを操作 
73.     ''' </summary> 
74.     ''' <param name="newWorkbook">エクセルのワークブック</param> 
75.     ''' <param name="newWorksheet">エクセルのシート</param> 
76.     ''' <remarks></remarks> 
77.     Private Sub operationExcel(ByVal Application As Excel.Application, ByVal newWorkbook As Excel.Workbook, _
78.                                 ByVal newWorksheet As Excel.Worksheet)
79.         Dim strDefaultPath As String
80.         Dim intAppReFile As Integer = Application.RecentFiles.Count
81.         Dim strFileName(intAppReFile) As String
83.         Dim i As Integer
84.         newWorksheet.Cells(1, 1) = "Hello Word!"
85.         'ワークブックを電子メールの添付ファイルにして発送します。 
86.         newWorkbook.SendMail(Recipients:="[e-mail]", Subject:="July Sales Figures")
87.         '黙認のパス 
88.         strDefaultPath = Application.DefaultFilePath
89.         '最近使うワークブックを並べます 
90.         For i = 0 To intAppReFile - 1
91.             strFileName(i) = Application.RecentFiles(i + 1).Name
92.         Next
93.         ' 
94.     End Sub
96.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
97.         Dim Application As Excel.Application = Nothing
98.         Dim newWorkbook As Excel.Workbook = Nothing
99.         Dim newWorksheet As Excel.Worksheet = Nothing
100.         Dim excelHashTable As New Hashtable
102.         Try
103.             beforeTime = Date.Now
104.             '新規 
105.             excelHashTable = newExcel(Application, newWorkbook, newWorksheet)
106.             afterTime = Date.Now
107.             'エクセルを操作 
108.             operationExcel(excelHashTable("App"), excelHashTable("workbook"), excelHashTable("worksheet"))
109.             '保存エクセル 
110.             saveExcel(excelHashTable("workbook"), "D:/", "New")
112.             MsgBox("出力成功！")
113.         Catch ex As Exception
114.             MsgBox(ex.Message)
115.         Finally
116.             'エクセルを閉じる 
117.             closeExcel(excelHashTable("workbook"), excelHashTable("App"))
118.         End Try
119.     End Sub
121. #End Region 
123. #Region "エクセルを読取" 
125.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
126.         Dim aExcel As Excel.Application = Nothing
127.         Dim newWorkBook As Excel.Workbook = Nothing
128.         Dim strPath As String = "D:/"
129.         Dim strFileName As String = "New"
130.         Try
131.             beforeTime = Date.Now
132.             readExcel(aExcel, newWorkBook, strPath, strFileName)
133.             afterTime = Date.Now
134.             MsgBox("読取成功！")
135.         Catch ex As Exception
136.             MsgBox(ex.Message)
137.         Finally
138.             closeExcel(newWorkBook, aExcel)
139.         End Try
140.     End Sub
142.     ''' <summary> 
143.     ''' エクセルを読取 
144.     ''' </summary> 
145.     ''' <param name="aExcel">エクセルのアプリケーション</param> 
146.     ''' <param name="newWorkBook">エクセルのワークブック</param> 
147.     ''' <param name="strPath">エクセル保存のパス</param> 
148.     ''' <param name="strFileName">エクセルの名称</param> 
149.     ''' <remarks></remarks> 
150.     Private Sub readExcel(ByVal aExcel As Excel.Application, ByVal newWorkBook As Excel.Workbook, _
151.                             ByVal strPath As String, ByVal strFileName As String)
152.         Dim newWorkSheet As Excel.Worksheet
154.         aExcel = New Excel.Application
155.         newWorkBook = aExcel.Workbooks.Open(strPath & strFileName)
156.         newWorkSheet = newWorkBook.Sheets("sheet1")
157.         Dim s As String = newWorkSheet.Cells(1, 1).value2
158.         MsgBox(s)
160.     End Sub
162. #End Region
164. #Region "XML"
165.     Dim xmlWriter As New Xml.XmlTextWriter("New", System.Text.Encoding.UTF8)
166.     Private Sub writeXML()
167.         Dim xml As New Xml.XmlDocument
169.         xmlWriter.Formatting = System.Xml.Formatting.Indented
170.         xmlWriter.Indentation = 2
171.         xmlWriter.QuoteChar = """"c
172.         xmlWriter.WriteStartDocument(True)
173.         xmlWriter.WriteStartElement("localName")
175.     End Sub
176.     Public Sub SetXmlElement(ByVal localName As String, ByVal value As String)
177.         xmlWriter.WriteElementString(localName, value)
178.     End Sub
179.     Public Sub SetXmlStartElement(ByVal localName As String)
180.         xmlWriter.WriteStartElement(localName)
181.     End Sub
182.     Public Sub SetXmlAttributeString(ByVal localName As String, ByVal value As String)
183.         xmlWriter.WriteAttributeString(localName, value)
184.     End Sub
185.     Public Sub WriteEndElement()
186.         xmlWriter.WriteEndElement()
187.     End Sub
188.     Public Sub WriteEndDocument()
189.         xmlWriter.WriteEndDocument()
190.     End Sub
191.     Public Sub xmlClose()
192.         xmlWriter.Close()
193.     End Sub
194. #End Region