討論區快速選單
知識庫快速選單
政府補助!學嵌入式+物聯網 討論區最近新進100則主題
[ 回上頁 ] [ 討論區發言規則 ]
如何用VB控制Excel
更改我的閱讀文章字型大小
作者 : rememberlin(孤心)
[ 貼文 15 | 人氣 7291 | 評價 0 | 評價/貼文 0 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/12/28 下午 04:39:47
''須要引用項目 "Microsoft Excel 10.0 Object Library"
Set MyXlsApp = CreateObject("excel.application")

1.
我要怎麼得知第A行或第1列有多少欄位呢?
2.
請問一下,當我做過修改的時候之後關閉時
MyXlsApp.Workbooks.Close
他會詢問我是否要儲存,有什麼方法可以直接存檔或是放棄存檔
作者 : ma_hty(白老鼠(Gary))討論區板主 OpenGL卓越專家DirectX優秀好手C++頂尖高手貼文超過2000則人氣指數超過70000點
[ 貼文 2189 | 人氣 89850 | 評價 10120 | 評價/貼文 4.62 | 送出評價 79 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人rememberlin註記此篇回應為最佳解答 2004/12/28 下午 06:37:56
Dim t_book as MyXlsApp.Workbook

For each t_book in MyXlsApp.Workbooks
  t_book.Save
Next
作者 : joe6608(joe6608)
[ 貼文 14 | 人氣 308 | 評價 60 | 評價/貼文 4.29 | 送出評價 2 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/12/28 下午 08:40:27
素不素用ActiveCell呢?
作者 : rememberlin(孤心)
[ 貼文 15 | 人氣 7291 | 評價 0 | 評價/貼文 0 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/12/29 上午 08:06:39

>素不素用ActiveCell呢?
不是,他只是得知目前位置的Value而已
作者 : nison(Nison)
[ 貼文 21 | 人氣 3 | 評價 200 | 評價/貼文 9.52 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/1/8 上午 07:06:50
1.
我要怎麼得知第A行或第1列有多少欄位呢?
2.
請問一下,當我做過修改的時候之後關閉時
MyXlsApp.Workbooks.Close
他會詢問我是否要儲存,有什麼方法可以直接存檔或是放棄存檔

試試這個:
1.



作者 : nison(Nison)
[ 貼文 21 | 人氣 3 | 評價 200 | 評價/貼文 9.52 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/1/8 上午 07:23:52
不好意思按錯鍵
1.
   Excel 每個工作表,欄位(column) 最多就 256 個,列(row) 最多就 65536 個
    所以所有欄位為 65536 * 256
   如果想要知道,正使用的工作表目前有使用範圍,做法如下:
    Dim myRange as Excel.Range
   Dim rowFrist as integer, colFirst as integer
   Dim rowLast as integer, colLast as integer
   Set myRange = MyXlsApp.ActiveWorkBook.ActiveSheet.UsedRange
   rowFirst = myRange.Cells(1).Row
   colFrist = myRange.Cells(1).Column
   rowLast = myRange.Cells(myRange.Cells.Count).Row
   colLast = myRange.Cells(myRange.Cells.Count).Column
   
2.
   直接存檔:請參考其他大大之前回覆
    不存檔做法:
    Dim myWorkBook as Excel.WorkBook
    For Each myWorkBook In MyXlsApp.Workbooks
     myWorkbook.Close SaveChanges:=False
     '^^^^^^^^^^^^^
   Next
   
   供你參考。有錯請糾正。




作者 : mydick(ㄉ一ˊㄎㄜˋ) SQL Language優秀好手貼文超過200則
[ 貼文 223 | 人氣 6296 | 評價 2890 | 評價/貼文 12.96 | 送出評價 34 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/1/11 下午 04:14:45
.........
>Set MyXlsApp = CreateObject('excel.application')
.........
>2.
>請問一下,當我做過修改的時候之後關閉時
>MyXlsApp.Workbooks.Close
>他會詢問我是否要儲存,有什麼方法可以直接存檔或是放棄存檔

小弟提供一下第二部份的解決方法:
您需要設定 MyXlsApp.DisplayAlerts = False, Excel 就不會發出擾人的問題了!
希望對您有所幫助!
作者 : acelee124(RedCat)
[ 貼文 1 | 人氣 5 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/7 下午 09:55:34
再請教一個問題,當我用vb開excel檔,
在結束vb程式後,按下Ctrl + Alt + Del後,
會存在一個名為excel的程序,每執行一次程式就
會增一個,不知要如何消除??
我試過:
set appExcel = nothing
set appSheet = nothing
也沒用,請高人指點,多謝!!!!!!!!!!!1
作者 : 168(阿戊) Visual Basic一代宗師貼文超過2000則
[ 貼文 2957 | 人氣 7614 | 評價 11710 | 評價/貼文 3.96 | 送出評價 99 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/8 下午 11:45:45
正確的釋放要先xxx.close再set xxx=nothing

取工作表的使用範圍:
? xxx.usedrange.rows.count
? xxx.usedrange.cols.count
作者 : cheven(cheven)
[ 貼文 2 | 人氣 8 | 評價 30 | 評價/貼文 15 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/2/24 下午 04:20:26
set appSheet = nothing
set appExcel = nothing

反過來,要先釋放sheet,才放掉 excel.
作者 : dickens_chien(DC)
[ 貼文 10 | 人氣 0 | 評價 60 | 評價/貼文 6 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/5/23 上午 09:38:45
釋放excel:
  MyXlsApp.quit
  Set MyXlsApp = Nothing
 板主 : 小樓
 > Visual Basic 6.0/VBA - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Visual Basic 6.0/VBA - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Visual Basic 6.0/VBA
1 阿戊 10670 
2 小樓 8650 
3 Jones 5270 
4 水瓶天賞 2340 
5 joe 2230 
6 史努比 1950 
7 阿呆紅 1440 
8 tt's 1250 
9 青衫 1150 
10 羅啟章 1020 
Visual Basic 6.0/VBA
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2019 程式設計俱樂部 http://www.programmer-club.com.tw/
0.203125