| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
richshih
註冊時間: 2007-10-11
文章: 153
第 1 樓
|
 發表於: 星期一 十二月 21, 2009 6:34 pm 文章主題: 請教Excel.Application兩個問題 |
 |
|
Oxls=('Excel.Application')
1)如何選定(select) WorkSheet 的 rows(1) 到 row(60) )
2)如何刪除整個ACTIVESHEET
我下了如下程式但無法刪除
oXLS.WORKBOOK.ACTIVESHEET.DELETE
在此先謝了 |
|
| 回頂端 |
|
 |
jys
註冊時間: 2004-12-27
文章: 33
來自: 台灣
第 2 樓
|
| 發表於: 星期二 十二月 22, 2009 9:04 am 文章主題: |
|
|
1.如何選定(select) WorkSheet 的 rows(1) 到 row(60) )
osheet= CreateObject('Excel.Application')
osheet.Workbooks.Add()
osheet.Rows("1:60").Select
2.Excel 中至少要有一個工作表,若只有一個時是不允許刪除的
osheet.Sheets("Sheet2").Select
osheet.ActiveWindow.SelectedSheets.Delete |
|
| 回頂端 |
|
|
richshih
註冊時間: 2007-10-11
文章: 153
第 3 樓
|
| 發表於: 星期二 十二月 22, 2009 8:48 pm 文章主題: |
|
|
| jys 寫到: | 1.如何選定(select) WorkSheet 的 rows(1) 到 row(60) )
osheet= CreateObject('Excel.Application')
osheet.Workbooks.Add()
osheet.Rows("1:60").Select
2.Excel 中至少要有一個工作表,若只有一個時是不允許刪除的
osheet.Sheets("Sheet2").Select
osheet.ActiveWindow.SelectedSheets.Delete |
謝了 |
|
| 回頂端 |
|
|
richshih
註冊時間: 2007-10-11
文章: 153
第 4 樓
|
| 發表於: 星期三 十二月 23, 2009 5:22 pm 文章主題: |
|
|
jys 先進 我的選定區(SELECTION) , 裡有一個圖片 我發現ACTIVESHEET.Range().pasteSpecial
卻沒把圖片貼進來,請問圖片的COPY PASTE該如何處理 |
|
| 回頂端 |
|
|
jys
註冊時間: 2004-12-27
文章: 33
來自: 台灣
第 5 樓
|
| 發表於: 星期二 十二月 29, 2009 9:55 am 文章主題: |
|
|
osheet.Rows("1:14").Select 已包含您的圖形區塊
osheet.Selection.Copy
osheet.Cells(13,1).Select 移到您要貼上的點
osheet.ActiveSheet.paste
試試 |
|
| 回頂端 |
|
|
jys
註冊時間: 2004-12-27
文章: 33
來自: 台灣
第 6 樓
|
| 發表於: 星期二 十二月 29, 2009 10:03 am 文章主題: |
|
|
Excel 中有錄製新巨集的功能,將您要的步驟錄下來,再停止錄製.再編輯它就可以看到您要的碼了.
雖不盡相同,但至少有一個方向. |
|
| 回頂端 |
|
|
richshih
註冊時間: 2007-10-11
文章: 153
第 7 樓
|
| 發表於: 星期二 十二月 29, 2009 1:09 pm 文章主題: |
|
|
| jys 寫到: | Excel 中有錄製新巨集的功能,將您要的步驟錄下來,再停止錄製.再編輯它就可以看到您要的碼了.
雖不盡相同,但至少有一個方向. |
謝了 照你的巨集方式解決了 看來Paste and PasteSpeical功能是不同的 |
|
| 回頂端 |
|
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
