VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

VFP 在EXCEL 上新增一個SHEET 的語法

 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
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. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
1頁(共1頁)

 
前往:  
無法 在這個版面發表文章
無法 在這個版面回覆文章
無法 在這個版面編輯文章
無法 在這個版面刪除文章
無法 在這個版面進行投票
無法 在這個版面附加檔案
無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作