VFP 愛用者社區

[jakan9]

在vfp 中用
myexcel.Sheets(&t_name).Select
t_name="0001",正常可選到0001 的工作底稿
t_name="FILENAME" 會ERROR
只要是文字就出錯.

[garfield]

excel.sheets( 數字序號) 或 excel.sheets( 工作表名稱 )
當 t_name="0001", 用 &t_name 它變成數字 1
當 t_name="FILENAME", 用 &t_name 它會取用變數名稱 FILENAME
如果你沒有事先定義 FILENAME , 當然會出錯

[jakan9]

可是一個excel 表有多張sheet 的檔案要讀,要用變數

[jakan9]

經測試用
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]

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]

very 感謝,
我是用變數一直重覆使用
但您的是用array,
可是您的
o_excel.sheets(msheetlist[i]).select
就是會動,我的就是不動,也不會有err