- 帖子
- 406
- 主題
- 8
- 精華
- 0
- 積分
- 453
- 點名
- 0
- 作業系統
- WINDOWS 7
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2015-2-7
- 最後登錄
- 2021-7-31
|
回復 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
|
|
發表於 2015-11-2 01:44
| 
