伊莉討論區

標題: vba CREATE TABLE 語法 [打印本頁]

作者: qaz5455 時間: 2017-5-26 10:54 PM 標題: vba CREATE TABLE 語法

請求各大神幫忙
我想要用excel在access 裡面建很多資料表
然後每張資料表的名子都是數字(股票號碼) 都放在excel儲存格內
因為有兩三千個所以想用for迴圈的方法新增資料表
程式碼如代碼第1種跟第2種
第一種方法就是ㄧ張ㄧ張慢慢建
我想要的是第二種就是他會自動去讀儲存格的名子然後做為access資料表的名稱
因此不知道在第二種程式碼 aanumber 那個位子的表格名稱語法該怎打才可以正常建立資料表

1------------------------------------------------------
Sub CreateTableX1()
Dim dbs As Database
Set dbs = OpenDatabase("H:\test\myStock.accdb")
dbs.Execute "CREATE TABLE 00001" _
& "(FirstName CHAR, LastName CHAR);"
dbs.Close
End Sub
2--------------------------------------------------
Sub CreateTableX1()
Dim dbs As Database
Dim i=2 to 10
Dim aanumber As Object
Set dbs = OpenDatabase("H:\test\myStock.accdb")
Set aanumber = Cells(i, 1)
dbs.Execute "CREATE TABLE aanumber" _
& "(FirstName CHAR, LastName CHAR);"
dbs.Close
End Sub

複製代碼

作者: tryit244178 時間: 2017-5-27 05:15 PM

本帖最後由 tryit244178 於 2017-5-27 05:33 PM 編輯

第20行改成

Dim i as integer

複製代碼

第21行改成

Dim aanumber as string

複製代碼

第24行改成

For i=2 to 10

複製代碼

第26、27行合併成

dbs.Execute "CREATE TABLE " & aanumber & "(FirstName CHAR, LastName CHAR);"

複製代碼

第28行改成

Next i

複製代碼

試試。手上沒電腦，不保證是你要的就是…

作者: qaz5455 時間: 2017-5-27 08:33 PM

了解感謝你

歡迎光臨伊莉討論區 (http://ww.eyny.com/)