vb讀取已打開的文件

『壹』 用VB調用已經打開的EXCEL文檔

Dim oExcel As New Excel.Application
Dim ExlSht As Excel.Worksheet
On Error GoTo 1
Set oExcel = GetObject(, "Excel.Application")'獲得當前打開的EXCEL
'若Excel沒有啟動
1:
If Err = 429 Then
Err = 0
Set oExcel = CreateObject("Excel.Application")
'無法創建Excel對象
If Err = 429 Then
MsgBox Err & ": " & Error, vbExclamation + vbOKOnly
Exit Sub
End If
End If
'oExcel.Workbooks.Add
'檢查最新的版本
If Val(oExcel.Application.Version) >= 8 Then
Set ExlSht = oExcel.ActiveSheet
Else
Set ExlSht = oExcel
End If
'OExcel.Visible = True
ExlSht.Cells(1, 1) = "AAA" '操作

『貳』 vb中怎麼讀取excel文件

1、調用Excel對象打開EXCEL文件後，讀取文件內容
***************************************
在VB中要想調用Excel，需要打開VB編程環境「工程」菜單中的「引用」項目，並選取項目中的「MicrosoftExcel 11.0 object library」項。由於你的Excel版本不同，所以這個選項的版本號也是不同的。

因為EXCEL是以層次結構組織對象的，其對象模型中含有許多不同的對象元素。
第一層：Application對象，即Excel本身；
第二層：workbooks對象集，指Excel的工作簿文件
第三層：worksheets對象集，表示的是Excel的一個工作表；
第四層：Cells和Range對象，指向Excel工作表中的單元格。
新建立一個VB的工程，先放一個button，名稱為Excel_Out。先定義好各層：
Dim xlapp As Excel.Application 'Excel對象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表
我們打算做的是：打開/新建一個excel，在其中對某工作表的一些單元格修改其值，然後另存為test.xls文件。
Private Sub Excel_Out_Click()
Dimi, j As Integer
Setxlapp = CreateObject("Excel.Application") '創建EXCEL對象
'Set xlbook = xlapp.Workbooks.Open(App.Path& "\test.xls")'打開已經存在的test.xls工件簿文件
Setxlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件
'xlbook.RunAutoMacros (xlAutoOpen) '運行EXCEL啟動宏
'xlbook.RunAutoMacros (xlAutoClose) '運行EXCEL關閉宏
xlapp.Visible = True '設置EXCEL對象可見（或不可見）
Setxlsheet = xlbook.Worksheets(1) '設置活動工作表''
''~~~當前工作簿的第一頁,這里也可以換成「表名」

'下面就是簡單的在一些單元格內寫入數字
Fori = 7 To 15
For j = 1 To 10
xlsheet.Cells(i, j) = j '當前工作簿第一頁的第I行第J列
Next j
Nexti
Withxlsheet '設置邊框為是實線
.Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuous
EndWith
'引用當前工作簿的第二頁
Setxlsheet = xlapp.Application.Worksheets(2)
xlsheet.Cells(7, 2) = 2008 '在第二頁的第7行第2列寫入2008
xlsheet.SaveAsApp.Path&"\test.xls" '按指定文件名存檔
'Setxlbook = xlapp.Application.Workbooks.Add '新建一空白工作簿
xlapp.Quit '結束EXCEL對象'xlapp.Workbooks.Close
Setxlapp = Nothing '釋放xlApp對象
End Sub
這樣，我們就可以簡單的對excel文件進行操作了。下面再放一些我從網上查到的資料吧，還挺有用的：
1．創建Excel對象
eole=CREATEOBJECT(′Excel.application′)
2．添加新工作簿
eole.Workbooks.add
3．設置第3個工作表為激活工作表
eole.Worksheets(〃sheet3〃).Activate
4．打開指定工作簿
eole.Workbooks.Open(〃c:\temp\ll.xls〃)
5．顯示Excel窗口
eole.visible=.t.
6．更改Excel標題欄
eole.Caption=〃VB應用程序調用Microsoft Excel〃
7．給單元格賦值
eole.cells(1,4).value=XM(XM為資料庫欄位名)
8．設置指定列的寬度(單位：字元個數)
eole.ActiveSheet.Columns(1).ColumnWidth=5
9．設置指定行的高度(單位：磅)
eole.ActiveSheet.Rows(1).RowHeight=1/0.035
(設定行高為1厘米，1磅=0.035厘米)
10．在第18行之前插入分頁符
eole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1
11．在第4列之前刪除分頁符
eole.ActiveSheet.Columns(4).PageBreak=0
12．指定邊框線寬度(Borders參數如下)
ole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3
13．設置四個邊框線條的類型
eole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1
(其中Borders參數：1－左、2－右、3－頂、4－底、5－斜、6－斜/；LineStyle值：1與7－細實、2－細虛、4－點虛、9－雙細實線)
14．設置頁眉
eole.ActiveSheet.PageSetup.CenterHeader=〃報表1〃
15．設置頁腳
eole.ActiveSheet.PageSetup.CenterFooter=〃第＆P頁〃
16．設置頁眉到頂端邊距為2厘米
eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035
17．設置頁腳到底邊距為3厘米
eole.ActiveSheet.PageSetup.FooterMargin=3/0.035
18．設置頂邊距為2厘米
eole.ActiveSheet.PageSetup.TopMargin=2/0.035
19．設置底邊距為4厘米
eole.ActiveSheet.PageSetup.BottomMargin=4/0.035
20．設置左邊距為2厘米
veole.ActiveSheet.PageSetup.LeftMargin=2/0.035
21．設置右邊距為2厘米
eole.ActiveSheet.PageSetup.RightMargin=2/0.035
22．設置頁面水平居中
eole.ActiveSheet.PageSetup.CenterHorizontally=.t.
23．設置頁面垂直居中
eole.ActiveSheet.PageSetup.CenterVertically=.t.
24．設置頁面紙張大小(1－窄行8511 39－寬行1411)
eole.ActiveSheet.PageSetup.PaperSize=1
25．列印單元格網線
eole.ActiveSheet.PageSetup.PrintGridlines=.t.
26．拷貝整個工作表
eole.ActiveSheet.UsedRange.Copy
27．拷貝指定區域
eole.ActiveSheet.Range(〃A1:E2〃).Copy
28．粘貼
eole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecial
29．在第2行之前插入一行
eole.ActiveSheet.Rows(2).Insert
30．在第2列之前插入一列
eole.ActiveSheet.Columns(2).Insert
31．設置字體
eole.ActiveSheet.Cells(2,1).Font.Name=〃黑體〃
32．設置字體大小
eole.ActiveSheet.Cells(1,1).Font.Size=25
33．設置字體為斜體
eole.ActiveSheet.Cells(1,1).Font.Italic=.t.
34．設置整列字體為粗體
eole.ActiveSheet.Columns(1).Font.Bold=.t.
35．清除單元格公式
eole.ActiveSheet.Cells(1,4).ClearContents
36．列印預覽工作表
eole.ActiveSheet.PrintPreview
37．列印輸出工作表
eole.ActiveSheet.PrintOut
38．工作表另存為
eole.ActiveWorkbook.SaveAs(〃c:\temp\22.xls〃)
39．放棄存檔
eole.ActiveWorkbook.saved=.t.
40．關閉工作簿
eole.Workbooks.close
41．退出Excel
eole.quit
***************************************

2、調用ADO對象以資料庫方式打開EXECL文件後，以SQL語句方式讀取文件
***************************************
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" DBQ=" & App.Path & ";", "", ""
rs.Open "select * from [test$]", conn, adOpenStatic, adLockReadOnly, adCmdText
Set Read_Text_File = rs
Set rs = Nothing
Set conn = Nothing
***************************************

『叄』 vb 讀取打開的文件名

如果你的文件名是存在filename這個變數中的話，那麼可以寫：
Me.Caption
=
filename
+
"
-
記事本"
或者如果是用通用對話框獲取的文件名，那就是
Me.Caption
=
commdlg.filename
+
"
-
記事本"
當然，如果你用的是VB6，上面的代碼沒有問題。但如果是VB.net的話，Me.caption要改成me.text才行

『肆』 VB 如何讀取 已經打開的一個TXT文件的某特定一行

Private Sub Form_click()
Print ReadSomeLine("z:\1.txt", 3)
End Sub
Function ReadSomeLine(Str1 As String, LineN As Integer)
Dim temp As String
Dim a() As Variant, x As Integer
Open Str1 For Input As #1
Do While Not EOF(1)
Line Input #1, temp
ReDim Preserve a(x)
a(x) = temp
x = x + 1
Loop
Close #1
ReadSomeLine = a(LineN - 1)
End Function

『伍』 VB中如何讀寫文件 謝謝了

用open
open <文件名>[for 打開方式] as [#]<文件號>
打開方式有三種
（1）input：向計算機輸入數據，即從所打開的文件中讀取數據。
(2)output:向文件寫數據，即從計算機向所打開的文件寫數據。如果文件中原來已有數據，則原有數據被抹去，即新寫上的數據覆蓋已有的數據。
（3）append:向文件添加數據，即從計算機向所打開的文件寫數據。不同於output方式的是，append方式把新的數據添加到文件尾部原有數據的後邊，文件中保留原有數據。
AS是一個關鍵字，as引導的短語為打開的文件指定一個文件號。#號是可選項。文件號是一個1~511之間的整數。文件號用來代表所打開的文件。

例如：打開c:\a.txt文件
open "c:\a.txt" for output as #1

向文件寫數據用print和write語句：
print #<文件號>[,輸出表列]
write #<文件號>〔，輸出表列]
例如向上面打開的文件寫數據
print #1,"a";"b";"c"
close #1
文件里顯示為：
abc

『陸』 請問VB中如何讀取txt文件的數據

1、新建一個標準的VB EXE工程，只有一個Form，Form上有兩個按鈕：Command1和Command2。

『柒』 用VB調用已經打開的EXCEL文檔

一、 VB讀寫EXCEL表：
VB本身提自動化功能可以讀寫EXCEL表，其方法如下：
1、在工程中引用Microsoft Excel類型庫：
從"工程"菜單中選擇"引用"欄；選擇Microsoft Excel 9.0 Object Library（EXCEL2000），然後選擇"確定"。表示在工程中要引用EXCEL類型庫。
2、在通用對象的聲明過程中定義EXCEL對象：
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
3、在程序中操作EXCEL表常用命令：
Set xlApp = CreateObject("Excel.Application") '創建EXCEL對象
Set xlBook = xlApp.Workbooks.Open("文件名") '打開已經存在的EXCEL工件簿文件
xlApp.Visible = True '設置EXCEL對象可見（或不可見）
Set xlSheet = xlBook.Worksheets("表名") '設置活動工作表
xlSheet.Cells(row, col) =值 '給單元格（row,col）賦值
xlSheet.PrintOut '列印工作表
xlBook.Close (True) '關閉工作簿
xlApp.Quit '結束EXCEL對象
Set xlApp = Nothing '釋放xlApp對象
xlBook.RunAutoMacros (xlAutoOpen) '運行EXCEL啟動宏
xlBook.RunAutoMacros (xlAutoClose) '運行EXCEL關閉宏
4、在運用以上VB命令操作EXCEL表時，除非設置EXCEL對象不可見，否則VB程序可繼續執行其它操作，也能夠關閉EXCEL，同時也可對EXCEL進行操作。但在EXCEL操作過程中關閉EXCEL對象時，VB程序無法知道，如果此時使用EXCEL對象，則VB程序會產生自動化錯誤。形成VB程序無法完全控制EXCEL的狀況，使得VB與EXCEL脫節。
二、 EXCEL的宏功能：
EXCEL提供一個Visual Basic編輯器，打開Visual Basic編輯器，其中有一工程屬性窗口，點擊右鍵菜單的"插入模塊"，則增加一個"模塊1"，在此模塊中可以運用Visual Basic語言編寫函數和過程並稱之為宏。其中，EXCEL有兩個自動宏：一個是啟動宏（Sub Auto_Open()），另一個是關閉宏（Sub Auto_Close()）。它們的特性是：當用EXCEL打含有啟動宏的工簿時，就會自動運行啟動宏，同理，當關閉含有關閉宏的工作簿時就會自動運行關閉宏。但是通過VB的自動化功能來調用EXCEL工作表時，啟動宏和關閉宏不會自動運行，而需要在VB中通過命令xlBook.RunAutoMacros (xlAutoOpen)和xlBook.RunAutoMacros (xlAutoClose) 來運行啟動宏和關閉宏。
三、 VB與EXCEL的相互勾通：
充分利用EXCEL的啟動宏和關閉宏，可以實現VB與EXCEL的相互勾通，其方法如下：
在EXCEL的啟動宏中加入一段程序，其功能是在磁碟中寫入一個標志文件，同時在關閉宏中加入一段刪除此標志文件的程序。VB程序在執行時通過判斷此標志文件存在與否來判斷EXCEL是否打開，如果此標志文件存在，表明EXCEL對象正在運行，應該禁止其它程序的運行。如果此標志文件不存在，表明EXCEL對象已被用戶關閉，此時如果要使用EXCEL對象運行，必須重新創建EXCEL對象。
四、舉例：
1、在VB中，建立一個FORM，在其上放置兩個命令按鈕，將Command1的Caption屬性改為EXCEL，Command2的Caption屬性改為End。然後在其中輸入如下程序：
Dim xlApp As Excel.Application '定義EXCEL類
Dim xlBook As Excel.Workbook '定義工件簿類
Dim xlsheet As Excel.Worksheet '定義工作表類
Private Sub Command1_Click() '打開EXCEL過程
If Dir("D:\temp\excel.bz") = "" Then '判斷EXCEL是否打開
Set xlApp = CreateObject("Excel.Application") '創建EXCEL應用類
xlApp.Visible = True '設置EXCEL可見
Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打開EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打開EXCEL工作表
xlsheet.Activate '激活工作表
xlsheet.Cells(1, 1) = "abc" '給單元格1行駛列賦值
xlBook.RunAutoMacros (xlAutoOpen) '運行EXCEL中的啟動宏
Else
MsgBox ("EXCEL已打開")
End If
End Sub

Private Sub Command2_Click()
If Dir("D:\temp\excel.bz") <> "" Then '由VB關閉EXCEL
xlBook.RunAutoMacros (xlAutoClose) '執行EXCEL關閉宏
xlBook.Close (True) '關閉EXCEL工作簿
xlApp.Quit '關閉EXCEL
End If
Set xlApp = Nothing '釋放EXCEL對象
End
End Sub

2、在D盤根目錄上建立一個名為Temp的子目錄，在Temp目錄下建立一個名為"bb.xls"的EXCEL文件。
3、在"bb.xls"中打開Visual Basic編輯器，在工程窗口中點滑鼠鍵選擇插入模塊，在模塊中輸入入下程序存檔：
Sub auto_open()
Open "d:\temp\excel.bz" For Output As #1 '寫標志文件
Close #1
End Sub

Sub auto_close()
Kill "d:\temp\excel.bz" '刪除標志文件
End Sub
4、運行VB程序，點擊EXCEL按鈕可以打開EXCEL系統，打開EXCEL系統後，VB程序和EXCEL分別屬兩個不同的應用系統，均可同時進行操作，由於系統加了判斷，因此在VB程序中重復點擊EXCEL按鈕時會提示EXCEL已打開。如果在EXCEL中關閉EXCEL後再點EXCEL按鈕，則會重新打開EXCEL。而無論EXCEL打開與否，通過VB程序均可關閉EXCEL。這樣就實現了VB與EXCEL的無縫連接。

『捌』 vb中怎麼讀取excel文件

1、調用Excel對象打開EXCEL文件後，讀取文件內容x0dx0a***************************************x0dx0a在VB中要想調用Excel，需要打開VB編程環境「工程」菜單中的「引用」項目，並選取項目中的「MicrosoftExcel 11.0 object library」項。由於你的Excel版本不同，所以這個選項的版本號也是不同的。x0dx0a x0dx0a因為EXCEL是以層次結構組織對象的，其對象模型中含有許多不同的對象元素。x0dx0a第一層：Application對象，即Excel本身；x0dx0a第二層：workbooks對象集，指Excel的工作簿文件x0dx0a第三層：worksheets對象集，表示的是Excel的一個工作表；x0dx0a第四層：Cells和Range對象，指向Excel工作表中的單元格。x0dx0a新建立一個VB的工程，先放一個button，名稱為Excel_Out。先定義好各層：x0dx0aDim xlapp As Excel.Application 'Excel對象x0dx0aDim xlbook As Excel.Workbook '工作簿x0dx0aDim xlsheet As Excel.Worksheet '工作表x0dx0a我們打算做的是：打開/新建一個excel，在其中對某工作表的一些單元格修改其值，然後另存為test.xls文件。x0dx0aPrivate Sub Excel_Out_Click()x0dx0a Dimi, j As Integerx0dx0a Setxlapp = CreateObject("Excel.Application") '創建EXCEL對象x0dx0a 'Set xlbook = xlapp.Workbooks.Open(App.Path& "\test.xls")'打開已經存在的test.xls工件簿文件x0dx0a Setxlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件x0dx0a 'xlbook.RunAutoMacros (xlAutoOpen) '運行EXCEL啟動宏x0dx0a 'xlbook.RunAutoMacros (xlAutoClose) '運行EXCEL關閉宏x0dx0axlapp.Visible = True '設置EXCEL對象可見（或不可見）x0dx0a Setxlsheet = xlbook.Worksheets(1) '設置活動工作表'
''~~~當前工作簿的第一頁,這里也可以換成「表名」x0dx0a x0dx0a'下面就是簡單的在一些單元格內寫入數字x0dx0a Fori = 7 To 15x0dx0a For j = 1 To 10x0dx0axlsheet.Cells(i, j) = j '當前工作簿第一頁的第I行第J列x0dx0a Next jx0dx0a Nextix0dx0a Withxlsheet '設置邊框為是實線x0dx0a .Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuousx0dx0a EndWithx0dx0a '引用當前工作簿的第二頁x0dx0a Setxlsheet = xlapp.Application.Worksheets(2)x0dx0axlsheet.Cells(7, 2) = 2008 '在第二頁的第7行第2列寫入2008x0dx0axlsheet.SaveAsApp.Path&"\test.xls" '按指定文件名存檔x0dx0a 'Setxlbook = xlapp.Application.Workbooks.Add '新建一空白工作簿x0dx0axlapp.Quit '結束EXCEL對象'xlapp.Workbooks.Closex0dx0a Setxlapp = Nothing '釋放xlApp對象x0dx0aEnd Subx0dx0a這樣，我們就可以簡單的對excel文件進行操作了。下面再放一些我從網上查到的資料吧，還挺有用的：x0dx0a 1．創建Excel對象x0dx0aeole=CREATEOBJECT(′Excel.application′) x0dx0a 2．添加新工作簿x0dx0aeole.Workbooks.addx0dx0a 3．設置第3個工作表為激活工作表x0dx0aeole.Worksheets(〃sheet3〃).Activate x0dx0a 4．打開指定工作簿x0dx0aeole.Workbooks.Open(〃c:\temp\ll.xls〃) x0dx0a 5．顯示Excel窗口x0dx0aeole.visible=.t. x0dx0a 6．更改Excel標題欄x0dx0aeole.Caption=〃VB應用程序調用Microsoft Excel〃x0dx0a 7．給單元格賦值x0dx0aeole.cells(1,4).value=XM(XM為資料庫欄位名) x0dx0a 8．設置指定列的寬度(單位：字元個數) x0dx0aeole.ActiveSheet.Columns(1).ColumnWidth=5 x0dx0a 9．設置指定行的高度(單位：磅) x0dx0aeole.ActiveSheet.Rows(1).RowHeight=1/0.035 x0dx0a (設定行高為1厘米，1磅=0.035厘米) x0dx0a 10．在第18行之前插入分頁符x0dx0aeole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1 x0dx0a 11．在第4列之前刪除分頁符x0dx0aeole.ActiveSheet.Columns(4).PageBreak=0 x0dx0a 12．指定邊框線寬度(Borders參數如下) x0dx0aole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3 x0dx0a 13．設置四個邊框線條的類型x0dx0aeole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1 x0dx0a (其中Borders參數：1－左、2－右、3－頂、4－底、5－斜、6－斜/；LineStyle值：1與7－細實、2－細虛、4－點虛、9－雙細實線) x0dx0a 14．設置頁眉x0dx0aeole.ActiveSheet.PageSetup.CenterHeader=〃報表1〃x0dx0a 15．設置頁腳x0dx0aeole.ActiveSheet.PageSetup.CenterFooter=〃第＆P頁〃x0dx0a 16．設置頁眉到頂端邊距為2厘米x0dx0aeole.ActiveSheet.PageSetup.HeaderMargin=2/0.035 x0dx0a 17．設置頁腳到底邊距為3厘米x0dx0aeole.ActiveSheet.PageSetup.FooterMargin=3/0.035 x0dx0a 18．設置頂邊距為2厘米x0dx0aeole.ActiveSheet.PageSetup.TopMargin=2/0.035 x0dx0a 19．設置底邊距為4厘米x0dx0aeole.ActiveSheet.PageSetup.BottomMargin=4/0.035 x0dx0a 20．設置左邊距為2厘米x0dx0aveole.ActiveSheet.PageSetup.LeftMargin=2/0.035 x0dx0a 21．設置右邊距為2厘米x0dx0aeole.ActiveSheet.PageSetup.RightMargin=2/0.035 x0dx0a 22．設置頁面水平居中x0dx0aeole.ActiveSheet.PageSetup.CenterHorizontally=.t. x0dx0a 23．設置頁面垂直居中x0dx0aeole.ActiveSheet.PageSetup.CenterVertically=.t. x0dx0a 24．設置頁面紙張大小(1－窄行8511 39－寬行1411) x0dx0aeole.ActiveSheet.PageSetup.PaperSize=1 x0dx0a 25．列印單元格網線x0dx0aeole.ActiveSheet.PageSetup.PrintGridlines=.t. x0dx0a 26．拷貝整個工作表x0dx0aeole.ActiveSheet.UsedRange.Copyx0dx0a 27．拷貝指定區域x0dx0aeole.ActiveSheet.Range(〃A1:E2〃).Copy x0dx0a 28．粘貼x0dx0aeole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecialx0dx0a 29．在第2行之前插入一行x0dx0aeole.ActiveSheet.Rows(2).Insert x0dx0a 30．在第2列之前插入一列x0dx0aeole.ActiveSheet.Columns(2).Insert x0dx0a 31．設置字體x0dx0aeole.ActiveSheet.Cells(2,1).Font.Name=〃黑體〃x0dx0a 32．設置字體大小x0dx0aeole.ActiveSheet.Cells(1,1).Font.Size=25 x0dx0a 33．設置字體為斜體x0dx0aeole.ActiveSheet.Cells(1,1).Font.Italic=.t. x0dx0a 34．設置整列字體為粗體x0dx0aeole.ActiveSheet.Columns(1).Font.Bold=.t. x0dx0a 35．清除單元格公式x0dx0aeole.ActiveSheet.Cells(1,4).ClearContentsx0dx0a 36．列印預覽工作表x0dx0aeole.ActiveSheet.PrintPreviewx0dx0a 37．列印輸出工作表x0dx0aeole.ActiveSheet.PrintOutx0dx0a 38．工作表另存為x0dx0aeole.ActiveWorkbook.SaveAs(〃c:\temp\22.xls〃) x0dx0a 39．放棄存檔x0dx0aeole.ActiveWorkbook.saved=.t. x0dx0a 40．關閉工作簿x0dx0aeole.Workbooks.closex0dx0a 41．退出Excel x0dx0aeole.quitx0dx0a***************************************x0dx0ax0dx0a2、調用ADO對象以資料庫方式打開EXECL文件後，以SQL語句方式讀取文件x0dx0a***************************************x0dx0a Dim rs As ADODB.Recordsetx0dx0a Set rs = New ADODB.Recordsetx0dx0a Dim conn As ADODB.Connectionx0dx0a Set conn = New ADODB.Connectionx0dx0a conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" DBQ=" & App.Path & ";", "", ""x0dx0a rs.Open "select * from [test$]", conn, adOpenStatic, adLockReadOnly, adCmdTextx0dx0a Set Read_Text_File = rsx0dx0a Set rs = Nothingx0dx0a Set conn = Nothingx0dx0a***************************************