上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
jakan9
註冊時間: 2003-10-22 文章: 130
第 1 樓
|
發表於: 星期四 十二月 01, 2011 12:13 pm 文章主題: excel問題請教 |
|
|
在vfp 中用
myexcel.Sheets(&t_name).Select
t_name="0001",正常可選到0001 的工作底稿
t_name="FILENAME" 會ERROR
只要是文字就出錯. |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2157
第 2 樓
|
發表於: 星期四 十二月 01, 2011 5:25 pm 文章主題: |
|
|
excel.sheets( 數字序號) 或 excel.sheets( 工作表名稱 )
當 t_name="0001", 用 &t_name 它變成數字 1
當 t_name="FILENAME", 用 &t_name 它會取用變數名稱 FILENAME
如果你沒有事先定義 FILENAME , 當然會出錯 _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
jakan9
註冊時間: 2003-10-22 文章: 130
第 3 樓
|
發表於: 星期四 十二月 01, 2011 6:26 pm 文章主題: 可是我有多張sheet 的檔案要讀 |
|
|
可是一個excel 表有多張sheet 的檔案要讀,要用變數 |
|
回頂端 |
|
|
jakan9
註冊時間: 2003-10-22 文章: 130
第 4 樓
|
發表於: 星期四 十二月 01, 2011 9:40 pm 文章主題: 用變數無作用 |
|
|
經測試用
myexcel.Sheets(t_name).Select
t_name="0001"
t_name="FILENAME"
程式都不會ERROR,但
myexcel.Sheets(t_name).Select
無作用,
都是在停在第1 個sheet
用set step on 測試
myexcel.Sheets(t_name).Select =.T.
再加上
myexcel.Sheets(t_name).activate
還是無作用 |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2157
第 5 樓
|
發表於: 星期四 十二月 01, 2011 9:58 pm 文章主題: |
|
|
o_excel=CreateObject("Excel.Application")
o_excel.Visible=.t.
o_excel.Workbooks.Add
dime msheetlist[o_excel.sheets.count]
for i=1 to o_excel.sheets.count
msheetlist[i] = o_excel.sheets(i).name
next
for i=1 to alen( msheetlist)
o_excel.sheets(msheetlist[i]).select
messagebox('請去看一看exce 第'+ltrim(str(i))+'個sheet 名稱:'+msheetlist[i]+' , 動作正常否')
next _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
jakan9
註冊時間: 2003-10-22 文章: 130
第 6 樓
|
發表於: 星期六 十二月 03, 2011 11:37 am 文章主題: |
|
|
very 感謝,
我是用變數一直重覆使用
但您的是用array,
可是您的
o_excel.sheets(msheetlist[i]).select
就是會動,我的就是不動,也不會有err |
|
回頂端 |
|
|
|