vba CREATE TABLE 語法

qaz5455

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

1. 1------------------------------------------------------
   
2. Sub CreateTableX1()
   
3. 
   
4.     Dim dbs As Database
   
5. 
   
6.     Set dbs = OpenDatabase("H:\test\myStock.accdb")
   
7. 
   
8.     dbs.Execute "CREATE TABLE 00001" _
   
9.         & "(FirstName CHAR, LastName CHAR);"
   
10. 
    
11.    
    
12.     dbs.Close
    
13.    
    
14.    
    
15. End Sub
    
16. 2--------------------------------------------------
    
17. Sub CreateTableX1()
    
18. 
    
19.     Dim dbs As Database
    
20.         Dim i=2 to 10
    
21.     Dim aanumber As Object
    
22.   
    
23.     Set dbs = OpenDatabase("H:\test\myStock.accdb")
    
24.                
    
25.     Set aanumber = Cells(i, 1)
    
26.     dbs.Execute "CREATE TABLE aanumber" _
    
27.         & "(FirstName CHAR, LastName CHAR);"
    
28. 
    
29.    
    
30.     dbs.Close
    
31.    
    
32.    
    
33. End Sub

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

tryit244178

第20行改成

1. Dim i as integer

複製代碼

第21行改成

1. Dim aanumber as string

複製代碼

第24行改成

1. For i=2 to 10

複製代碼

第26、27行合併成

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

複製代碼

第28行改成

1. Next i

複製代碼

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

瀏覽完整內容，請先 註冊 或 登入會員

qaz5455

了解  感謝你