數字名稱工作表

小弟目前碰到一個問題
就是小弟想使用vba自動新增不定數量的工作表
而且工作表的名稱為數字，並且在建立好該工作表後在該工作表之A1儲存格填入資料
小弟以下列寫法一直有問題
For i =1 to num
   uRng = Workbooks("a.xlsm").Worksheets("代號").cell(i,1) <<<<<<<這邊的儲存格放的都是數字例如1111、132、58752
   Workbooks("a.xlsm").Worksheets.Add.Name = uRng
   Workbooks("a.xlsm").Worksheets("uRng").cell(1,1) = 某些資料 <<<<<這一段一直顯示有問題
   將上一段改成Workbooks("a.xlsm").Worksheets(uRng).cell(1,1) = 某些資料 <<<<<<這樣還是錯
   如果改成 Workbooks("a.xlsm").Worksheets(str(uRng)).cell(1,1) = 某些資料<<<<<<<這樣還是錯@@~~~~
Next

請問各位大大小弟到底哪邊弄錯了
懇請指導謝謝

樓主熱帖

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

2^#

發表於 2015-11-2 01:44 | 只看該作者

回復 1# pideo

你的問題點很多，尤其是資料型態的部份

1.你的uRng 是一個變數名稱，如果打成"uRng"，電腦就會找這個名稱的工作表，顯然是找不到

2.str(uRng)..............只有值才能用str這個函數，例如1111轉換成"1111"，但是你的uRng是變數名稱............

3.正確寫法是：Workbooks("a.xlsm").Worksheets(uRng).cells(1,1) 你少寫了S

4.寫程式不先定義資料型態是很不好的習慣，你的uRng 裡面裝的值是數字，假設uRng=5，所以Worksheets(uRng)，代表電腦去找第5個工作表

所以請補上Dim Urng As String

更正程式如下，先決條件你的num要有值

Dim Urng As String
For i = 1 To num
Urng = Workbooks("a.xlsm").Worksheets("代號").Cells(i, 1)
Workbooks("a.xlsm").Worksheets.Add.Name = Urng
Workbooks("a.xlsm").Worksheets(Urng).Cells(1, 1) = "某些資料"
Next

複製代碼

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

3^#

發表於 2015-11-2 01:59 | 只看該作者

回復 2# n7822123

更正我第2項說法

2.Worksheets(str(uRng)).......................只有數值才能用str這個函數，例如1111轉換成"1111"，但是你的uRng是變數名稱............

你把str函數改成Cstr 就行了，記住str函數裡面的引數只能是數值，不能是變數名稱

更正如下: