不知道是不是UFDATA_013_2008表的供應商壹欄的數據。如果沒有，請自行更改SQL語句。SQL = "從用友數據_ 013 _ 2008中選擇供應商"。
子SQL數據導入()
Dim cn作為新ADODB。關系
Dim rs為ADODB。記錄集
Dim字符串作為字符串
將sql顯示為字符串
將I標註為整數
str = " Provider = SQLOLEDB數據源=SQLSERVER服務器名稱或IP；數據庫=數據庫；UID=用戶名；PWD=密碼"
cn。開放海峽
Set rs = New ADODB。記錄集
sql = "從UFDATA_013_2008中選擇供應商"
rs。打開sql，cn，adOpenStatic，adLockOptimistic
如果不是rs。那麽EOF
對於i = 1至rs。記錄計數
工作表2。單元格(I，1)。價值=盧比。字段(0)。價值
接下來我
rs。下壹步
如果…就會結束
rs。關閉
cn。關閉
末端接頭