首页
/
每日頭條
/
科技
/
vba如何将excel數據導入access
vba如何将excel數據導入access
更新时间:2025-02-20 08:54:26

從Access查詢(Select)數據導入到Excel,主要步驟如下:

I 首先使用ADO連接到數據庫;

II 根據需要,設置不同的查詢條件創建查詢記錄集;

III 将記錄集中的數據複制到指定工作表中;

IV 關閉數據庫連接。

代碼如下:

Sub 查詢客戶信息()

Dim cnn As New Connection, rs As New Recordset

Dim strSql As String, i As Long, sh As Worksheet

On Error Resume Next

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _

& "Data Source=" & ThisWorkbook.Path & "\Northwind.mdb"

strSql = "Select * FROM [客戶] where 客戶ID='GROSR' " '從“客戶”表中獲取數據,如果沒有where子句,則獲取全部

rs.Open strSql, cnn, adOpenStatic '打開記錄集

Set sh = Worksheets.Add '添加工作表

sh.Name = "客戶信息" '設置工作表名稱

With sh

For i = 0 To rs.Fields.Count - 1 '用字段名作為表頭

.Cells(1, i 1) = rs.Fields(i).Name

Next

.Range("A2").CopyFromRecordset rs '複制記錄集中的數據

.Columns.AutoFit '設置列寬為自動适應

End With

rs.Close

cnn.Close

Set rs = Nothing

Set cnn = Nothing

End Sub

vba如何将excel數據導入access(VBA數據庫操作03從Access查詢數據導入到Excel)1

-End-

,
Comments
Welcome to tft每日頭條 comments! Please keep conversations courteous and on-topic. To fosterproductive and respectful conversations, you may see comments from our Community Managers.
Sign up to post
Sort by
Show More Comments
推荐阅读
配一般的電腦主機都要什麼配件?
配一般的電腦主機都要什麼配件?
配一般的電腦主機都要什麼配件?機箱機箱保護電腦内部穩定性,可以防止一定量的灰塵損害内部元件,價格一般在200元左右,我來為大家講解一下關于配一般的電腦主機都要什麼配件?跟着小編一起來看一看吧!配一般的電腦主機都要什麼配件機箱。機箱保護電腦内...
2025-02-20
平闆如何擴展顯示屏
平闆如何擴展顯示屏
如果隻是偶爾才有的多屏顯示需求,添置一台顯示器的做法其實是不太經濟的,直接利用現有設備進行屏幕擴展顯然更合适,DuetDisplay這樣的應用應運而生。具體到Windows平台,屏幕擴展一般有兩種解決方案:複制和擴展。複制屏幕常常用于分享或...
2025-02-20
鞋底材質eva是什麼樣的
鞋底材質eva是什麼樣的
“越南鞋廠面臨第二波訂單取消、巴西86%鞋廠癱瘓、意大利鞋廠請求盡快複工……”随着疫情的全球爆發,全球實體經濟都受到了重大沖擊,尤其是全球化貿易的鞋廠。我國以外貿為主的鞋材業也受到了重大打擊,雖然國家一度呼籲生産商要竭力把外貿轉内銷,降低損...
2025-02-20
微博怎麼改手機标識
微博怎麼改手機标識
微博怎麼改手機标識?在手機上打開微博客戶端,進入微博客戶端主界面,選擇“我”選項,今天小編就來說說關于微博怎麼改手機标識?下面更多詳細答案一起來看看吧!微博怎麼改手機标識在手機上打開微博客戶端,進入微博客戶端主界面,選擇“我”選項。在微博中...
2025-02-20
手機純待機能用多久
手機純待機能用多久
所謂待機,就是手機處于“待命狀态”,隻要你解鎖,它就會被喚起,進入工作狀态。那麼問題來了,手機在待機時,它到底在幹嘛?太敬業了,我們在睡大覺,它卻一直在幹活,這就是人工智能嗎?霍金警告我們,總有一天人工智能會取代人類藍牙和wifi隻在用的時...
2025-02-20
Copyright 2023-2025 - www.tftnews.com All Rights Reserved