數字名稱工作表

返回列表下一主題上一主題發帖

n7822123

　暱稱: 阿龍

中學生 Rank: 2

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

1^# 跳轉到 »

發表於 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

2^#

發表於 2015-11-2 01:59 | 顯示全部帖子

回復 2# n7822123

更正我第2項說法

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

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

更正如下: