找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
尊貴會員無限觀看附件圖片尊貴會員無限下載附件安全提問(回答) 和 永久尊貴會員 事宜
cosplay中出中文mg高中gd
風流父子西方shutupan刹那にか台中powerdvd楽園侵觸

休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

河南商丘 男子不滿店

[簡]通靈王 FLOWERS -

[繁]佐佐木與文鳥小嗶

〖高清繁〗霹靂天機貳

[繁]SYNDUALITY Noir

✡ 吞噬星空・109・20
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 5122|回復: 2

[求助] vba CREATE TABLE 語法[複製鏈接]

Rank: 1

帖子
220
積分
162 點
潛水值
15465 米
發表於 2017-5-26 10:54 PM|顯示全部樓層
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。
請求各大神幫忙
我想要用excel在access 裡面 建很多資料表
然後每張資料表的名子 都是數字(股票號碼) 都放在excel儲存格內
因為有兩三千個 所以想用for迴圈的方法 新增資料表
程式碼如代碼第1種 跟第2種
第一種方法就是 ㄧ張ㄧ張慢慢建
我想要的是第二種 就是他會自動去讀儲存格的名子 然後做為access資料表的名稱
因此 不知道在第二種程式碼 aanumber 那個位子的表格名稱 語法該怎打 才可以正常建立資料表
  1. 1------------------------------------------------------
  2. Sub CreateTableX1()

  3.     Dim dbs As Database

  4.     Set dbs = OpenDatabase("H:\test\myStock.accdb")

  5.     dbs.Execute "CREATE TABLE 00001" _
  6.         & "(FirstName CHAR, LastName CHAR);"

  7.    
  8.     dbs.Close
  9.    
  10.    
  11. End Sub
  12. 2--------------------------------------------------
  13. Sub CreateTableX1()

  14.     Dim dbs As Database
  15.         Dim i=2 to 10
  16.     Dim aanumber As Object
  17.   
  18.     Set dbs = OpenDatabase("H:\test\myStock.accdb")
  19.                
  20.     Set aanumber = Cells(i, 1)
  21.     dbs.Execute "CREATE TABLE aanumber" _
  22.         & "(FirstName CHAR, LastName CHAR);"

  23.    
  24.     dbs.Close
  25.    
  26.    
  27. End Sub
複製代碼
...
瀏覽完整內容,請先 註冊登入會員

使用道具檢舉

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
155
積分
1291 點
潛水值
47805 米
發表於 2017-5-27 05:15 PM|顯示全部樓層
所有積分大於負-100的壞孩子,將可獲得重新機會成為懲罰生,權限跟幼兒生一樣。
本帖最後由 tryit244178 於 2017-5-27 05:33 PM 編輯

第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
複製代碼

試試。手上沒電腦,不保證是你要的就是…...
瀏覽完整內容,請先 註冊登入會員

使用道具檢舉

Rank: 1

帖子
220
積分
162 點
潛水值
15465 米
發表於 2017-5-27 08:33 PM|顯示全部樓層
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。
了解  感謝你
如果發覺自己無法使用一些功能或出現問題,請按重新整理一次,並待所有網頁內容完全載入後5秒才進行操作。

使用道具檢舉

您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明:本討論區是以即時上載留言的方式運作,對所有留言的真實性、完整性及立場等,不負任何法律責任。而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。於有關情形下,用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限,故不能完全監察所有留言,若讀者發現有留言出現問題,請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言,同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論,敬請自律。本網站保留一切法律權利。
回頂部