華閱文章網怎樣使用*語句讀取EXECEL行列
Dim xlapp As Object Dim xlbook As Object Dim xlsheet As Object xlapp = CreateObject("Excel。
Application") xlbook = xlapp。Workbooks。
Open("D:\test。xls") '括號里應該寫你要讀取的文件的路徑。
（我測試用的文件叫test。xls，放在D盤下了） xlsheet = xlbook。
Worksheets TextBox1。Text = xlsheet。
Application。Cells(1, 1)。
value '這句是取值語句。為了做試驗，我在窗體上加了個文本框。
這句把第一行第一列那個單元格（A1）的值顯示在文本框TextBox1里。 Cells后面的括號里，逗號前是行號，逗號后是列號。
xlbook。Application。
Quit() xlsheet = Nothing xlbook = Nothing xlapp = Nothing ====================== 這段代碼在VB。 NET + WinXP上通過測試。
這樣的問題發的“軟件開發”更合適哦~ 關于這段代碼如果還有問題可以給我發消息。
*是什么語言
Visual *是基于微軟.NET Framework之上的面向對象的中間解釋性語言（名片中說*是"。中間解釋性語言“，這種說法極不準確，甚至完全錯誤。可能原編輯者是指的編譯器會先將源碼翻譯成MSIL(Microsoft Intermediate Language)中間語言這回事，但這和”解釋性語言“有很大差別），可以看作是Visual Basic在·Net Framework平臺上的升級版本，增強了對面向對象的支持。但由于改動太大，導致*對VB的向后兼容性不好，在業界引起不小的爭議。 大多的*程序員使用Visual Studio .Net作為IDE(integrated development environment).SharpDevelop是另一種可用的開源的IDE。*需要在.Net Framework平臺上才能執行。 *的主頁http://**vbasic
詳情請看百度百科：http://**view/*?from_id=1198656&type=syn&fromtitle=*&fr=aladdin
* if 語句
*ng未必是指結果集中的所有數據，也許只是一行中所有的，或是一列中所有的
保險起見，可以一格格枚舉
dim a as boolean=true
Dim row As DataRow
For Each row In *
Dim column As DataColumn
For Each column In *s
if row(column).contains("Agree") then a=false
Next column
Next row
if a then
*(0).Enabled = False
else
*(0).Enabled = True
end if
* 關于循環語句
我寫了一段代碼，注意你讀取的方法，我改進了一下
Imports * '代碼窗體的最上端一定要聲明
Public Class Form1
Private Sub Button1_Click(ByVal sender As *, ByVal e As *rgs) Handles *
Dim sr As StreamReader
Dim TextBox As Control
Dim i As Integer
i = 1
For Each TextBox In *ls
If TypeName(TextBox) = "TextBox" Then
sr = New StreamReader("c:\save\" & i & ".ini", *t) '注意選擇編碼方式，按你原來的方法，未設置編碼，顯示的是亂碼！路徑請按你的情況改！
* = *End()
i += 1
End If
Next
MsgBox（"已經載入" & i - 1 & "個文件"）
End Sub
注意：這樣的代碼是倒序的，第一個文本框顯示的是最后一個文件的內容！請酌情處理！
