ライセンスが高いんじゃよー!(本音)

Excelをインストールしていない環境で、VB.NETを使ってExcelファイルの内容を読み込みたい。
てことがあったのですよ。
無理だろと思っておったのですが、いやあできるもんなんですね。
取り込んだ内容をテキストファイルに吐き出します。
例によって、後処理とか手抜きです。

Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
Dim txt As String
Dim strFileName As String = "取込ファイル.xls"
txt = DataSet(strFileName)
Dim fso As Object
fso = CreateObject("Scripting.FileSystemObject")
With fso.OpenTextfile("output.txt", 8, True)
.WriteLine(strFileName)
.WriteLine(txt)
.Close()
End With
fso = Nothing
Call MsgBox("おしまい!")
End Sub
Private Function DataSet(path As String) As String
Dim conString As String
Dim strConn As String
Dim strRtn As String = ""
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};Extended Properties=""Excel 8.0;HDR=No;Imex=1"";"
conString = String.Format(strConn, path)
Dim con As OleDbConnection = New OleDbConnection(conString)
con.Open()
Dim schemaTable As DataTable = con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
con.Close()
Dim ds As DataSet = New DataSet()
Dim row As DataRow
Dim tableName As String
Dim sql As String
Dim oda As OleDbDataAdapter
Dim table As DataTable
For Each row In schemaTable.Rows
tableName = row("TABLE_NAME").ToString()
sql = String.Format("SELECT * FROM [{0}]", tableName)
oda = New OleDbDataAdapter(sql, con)
table = New DataTable(tableName)
strRtn = strRtn & "SheetName:" & tableName & vbCrLf
Try
oda.Fill(table)
ds.Tables.Add(table)
Dim dr As DataRow
For r = 0 To ds.Tables(0).Rows.Count - 1 'Show results in output window
dr = ds.Tables(0).Rows(r)
For c = 0 To dr.ItemArray.Length - 1
If dr.ItemArray(c).ToString <> "" Then
strRtn = strRtn & "(" & c & "/" & r & ")" & dr.ItemArray(c).ToString & vbCrLf
End If
Next
Next
Catch ex As Exception
End Try
Next
Return strRtn
End Function
End Class

以下のページを参考にさせていただきました。多謝。
http://d.hatena.ne.jp/nagakura_eil/20080716/p1
http://support.microsoft.com/kb/316934/ja
http://support.microsoft.com/kb/257819/ja

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です