VFP 愛用者社區

[cool]

之前有人整理過 EXCEL 在 VFP 中的使用方法, 如
eole=CREATEOBJECT(′Excel.application′)
eole.Workbooks.add
eole.Worksheets(″sheet3″).Activate
....
但請問如何移動或複製工作表呢
請各先進不吝賜教, 謝謝

[小賴]

oWorkBook = eole.Workbooks.open ......

oSheet3 = oWorkbook.Sheets("sheet3")
oWorkbook.sheets("sheet1").Move(oSheet3) && Sheet1 移至Sheet3之前
oWorkbook.sheets("sheet1").Move(, oSheet3) && Sheet1 移至Sheet3之後
oWorkbook.sheets("sheet1").COPY(oSheet3) && 複製Sheet1 至Sheet3之前
oWorkbook.sheets("sheet1").COPY(,oSheet3) && 複製Sheet1 至Sheet3之後

oWorkbook.sheets("sheet1").Move() && 不帶參數表示將Sheet1移出至新檔案
oWorkbook.sheets("sheet1").COPY() && 不帶參數表示將Sheet1複製至新檔案

[cool]

真是太感謝了
請問這些資料要去哪找呢
書名叫什麼?
謝謝

[小賴]

將你要作的指令, 在excel使用巨集錄製老老實實作一偏
然後打開巨集, 研究內容後, 再到vfp command window
try error 方式試試就懂了

[cool]

我按照您的方法, 試了又試
還是沒辦法刪除一個工作表

EXCEL 的巨集是
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete

轉成 VFP 的語法應該是如何呢, 謝謝

[小賴]

oExcel = CREATEOBJECT("EXCEL.APPLICATION")
oExcel.Visible = .T.
oExcel.Workbooks.Add
oExcel.Sheets.Add &&新增Sheet4
oExcel.Sheets(4).Delete &&刪除Sheet4
oExcel.Sheets("Sheet2").Delete &&刪除Sheet2


所以說研究後要Try Error ...
直接拿來用, 一般不會一次就成功
這次我就是跟據你的巨集Try出的


PS 忘了告訢你, 我會EXCEL的VBA所以占了一點便宜

[syntech]

多會一種事務,就會一份競爭力. ^_^

[cool]

謝謝您的指導

我也曾試過跟您同樣的命令
OEXCEL.SHEETS("SHEET1").DELETE
但一直沒有刪除, 因此以為下錯命令

後來依您的方法設
oExcel.Visible = .T.
才發現原來若工作表內有資料
EXCEL 會提示是否刪除的訊息
而在 VFP 中是沒提示, 也不會刪除

因此.....
是否有解呢
謝謝

[小賴]

那就讓EXCEL先閉嘴
oExcel.DisplayAlerts = .F.
oExcel.Sheets("Sheet1").DELETE
oExcel.DisplayAlerts = .T.

[cool]

哇.........就是如此
您是怎麼做到的, 真是太神奇了,
您真是高手....Orz
3Q 3Q