VFP 愛用者社區

impotence · 註冊時間: 2005-02-21 文章: 135 來自: Hong Kong 第 1 樓

我現有 a.xls , 1.xls, 2.xls

請問如何可以把 1,xls 的 sheet1 的所有內容 copy 到 a.xls 的 sheet1 , 而把 2.xls 的 sheet1 的所有內容 copy 到 a.xls 的 sheet2 ?

謝謝 !

syntech · 發表於: 星期三五月 07, 2008 8:47 am 文章主題:

1.按小妹分機號碼,Call 小妹進來.
2.和小妹說"把1,xls 的 sheet1 的所有內容 copy 到 a.xls 的 sheet1 , 而把 2.xls 的 sheet1 的所有內容 copy 到 a.xls 的 sheet2 " , "現在就要"

syntech · 發表於: 星期三五月 07, 2008 10:33 am 文章主題:

1.range([一個範圍]).copy
2.另一個exce_ole.ActiveWorkbook.Sheets(i).range([某格]).select
3.paste

自己去補完~~~~

garfield · 發表於: 星期三五月 07, 2008 11:02 am 文章主題:

補充:
exce_ole.Application.Cells.Select &&選取整個Excel工作表
exce_ole.Sheets("Sheet1").Select &&選取某張sheet

impotence · 發表於: 星期三五月 07, 2008 11:29 am 文章主題:

我原來的 coding 如下 :

tmpfilea=ADDBS(mytmp)+'a.xls' && a.xls 的位置
tmpfile1=ADDBS(mytmp)+'1.xls' && 1.xls 的位置
tmpfile2=ADDBS(mytmp)+'2.xls' && 2.xls 的位置

oExcel=CREATEOBJECT('Excel.application')
oExcel.Workbooks.Open('&tmpfile1')
oExcel.ActiveSheet.UsedRange.Copy
oExcel.ActiveWorkbook.Close

oExcel.Workbooks.Open('&tmpfilea')
oExcel.Worksheets("sheet1").Activate
oExcel.ActiveSheet.paste
.
.
.

但當到 oExcel.ActiveSheet.paste 發生錯誤 , 說不認識這個屬性 ! 因為我對 ole 不太了解 , 怕我的 coding 引發你們的笑話,所以我才問你們如何解決的, 而沒有寫出我的 coding .....

syntech · 發表於: 星期三五月 07, 2008 1:07 pm 文章主題:

我個人喜歡
oleEXCEL.ActiveWorkbook.Sheets(2).Range([copy的範圍]).COPY
oleEXCEL.ActiveWorkbook.Sheets(1).Range([要貼上去的左上角cell]).Select
oleEXCEL.ActiveWorkbook.Sheets(1).Paste

office 的help 還是要看一下,
才知道有哪些方法可用

impotence · 發表於: 星期三五月 07, 2008 2:55 pm 文章主題:

我想請問 , 有沒有方法在兩個 workbook 直接的切換 ?

syntech · 發表於: 星期三五月 07, 2008 3:53 pm 文章主題:

好像可以開多個workbook

Workbooks(n).Activate 可以切換
或
Workbooks("Cogs.xls").Worksheets("Sheet1").Activate

impotence · 發表於: 星期三五月 07, 2008 5:00 pm 文章主題:

謝謝 , 我找到原因了 !
問題已經解決 ~~~~ Laughing

小賴 · 註冊時間: 2004-12-27 文章: 472 第 10 樓

不知syntech兄與importence兄的作法是否能保持工作表格式的完整性 ?
我的習慣是將1.xls與2.xls工作表直接插入a.xls
可能發生的問題是工作表名稱重複(Sheet1) ; 所以插入前先更改工作表名 :

oExcel = CREATEOBJECT("EXCEL.APPLICATION")
oExcel.Visible = .T.

oWork1 = oExcel.WorkBooks.OPEN("a.XLS")
oWork2 = oExcel.WorkBooks.OPEN("1.XLS")
oWork3 = oExcel.WorkBooks.OPEN("2.XLS")

oSheet2 = oWork2.Sheets("Sheet1")
oSheet2.Name = "A1"
oSheet3 = oWork3.Sheets("Sheet1")
oSheet3.Name = "B1"

oSheet2.Copy(oWork1.ActiveSheet)
oSheet3.Copy(oWork1.ActiveSheet)

syntech · 發表於: 星期三五月 07, 2008 9:44 pm 文章主題:

先說, 不知道.
因為我以資料處理為主. XD

impotence · 發表於: 星期四五月 08, 2008 9:02 am 文章主題:

小賴 · 註冊時間: 2004-12-27 文章: 472 第 13 樓

>對不起 , 我沒有用過你的辦法 , 但我想請問 :
>oSheet2.Copy(oWork1.ActiveSheet)
>oSheet3.Copy(oWork1.ActiveSheet)
>是否只會把資料 COPY 到同一張 SHEET ?

oheet2.Copy(oWork1.ActiveSheet) :

於第一個活頁簿作用工作表前 ; 插入一張與oSheet2完全一樣(資料與格式)
的工作表.

稱單的說就是 :
將oSheet2複製到oWork1的作用工作表前