|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
beaves
註冊時間: 2009-08-11 文章: 3
第 1 樓
|
發表於: 星期三 八月 31, 2011 7:09 pm 文章主題: VFP 在EXCEL 上新增一個SHEET 的語法 |
|
|
我在VFP用了兩種寫法把存在的一個EXCEL檔新增一個sheet
我的第一種寫法執行完後,打開的EXCEL 都是被隱藏視窗的
能幫我看一下問題出在那裡嗎
謝謝
第一種
XLSAPP=GETOBJECT(T) && T 是該檔的路徑
WITH XLSAPP
.sheets.add
.Activesheet.NAME="Summary"
.activesheet.pastespecial
.SAVE
.Application.Workbooks.CLOSE
ENDWITH
第二種
XLSAPP=CREATEOBJECT("Excel.Application")
WITH XLSAPP
.APPLICATION.WORKBOOKS.OPEN(T)
.APPLICATION.Worksheets.add
.Activesheet.NAME="Summary"
.activesheet.pastespecial
.ACTIVEWORKBOOK.SAVE
.Application.Workbooks.CLOSE
ENDWITH |
|
回頂端 |
|
|
jys
註冊時間: 2004-12-27 文章: 33 來自: 台灣
第 2 樓
|
發表於: 星期四 九月 01, 2011 11:00 am 文章主題: |
|
|
XLSAPP=CREATEOBJECT("Excel.Application")
XLSAPP.Workbooks.Open(T)
XLSAPP.Visible=.T.
XLSAPP.Sheets(XLSAPP.Workbooks.Count).Select
XLSAPP.Sheets.Add
XLSAPP.Sheets(XLSAPP.Workbooks.Count+1).Move(XLSAPP.Sheets(XLSAPP.Workbooks.Count))
XLSAPP.Sheets(XLSAPP.Workbooks.Count+1).Select |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4227 來自: Taipei,Taiwan
第 3 樓
|
發表於: 星期四 九月 01, 2011 11:19 am 文章主題: |
|
|
樓上跟我用的是一樣的 _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|