請問大神
如已有兩個excel：
A.xls 和 B.xls，各只有sheet1有內容。
如何在腳本中，生成一個新的excel檔案，
將A.xls的內容copy到sheet1，將B.xls的內容copy到sheet2，
最后保存為C.xls。
uj5u.com熱心網友回復：
excel中錄制一個宏，記錄以上操作，然后把它的代碼翻譯為pb版本的uj5u.com熱心網友回復：
轉貼一些PB操作EXCEL常用的function給您參考這些應能符合您的需求
1．創建Excel對象
eole=CREATEOBJECT(‘Excel.application’)
2．添加新作業簿
eole.Workbooks.add
3．設置第3個作業表為啟動作業表
eole.Worksheets(“sheet3”).Activate
4．打開指定作業簿
eole.Workbooks.Open(“c:/temp/ll.xls”)
5．顯示Excel視窗
eole.visible=True
6．更改Excel標題列
eole.Caption=“VFP應用程式調用Microsoft Excel”
7．給儲存格賦值
eole.cells(1,4).value=https://bbs.csdn.net/topics/XM(XM為資料庫欄位名)
8．設置指定列的寬度(單位：字元個數)
eole.ActiveSheet.Columns(1).ColumnWidth=5
9．設置指定行的高度(單位：磅)
eole.ActiveSheet.Rows(1).RowHeight=1/0.035
(設定行高為1釐米，1磅=0.035釐米)
10．在第18行之前插入分頁符
eole.Worksheets(“Sheet1”).Rows(18).PageBreak=1
11．在第4列之前刪除分頁符
eole.ActiveSheet.Columns(4).PageBreak=0
12．指定邊框線寬度(Borders參數如下)
ole.ActiveSheet.Range(“b3:d3”).Borders(2).Weight=3
13．設置四個邊框線條的類型
eole.ActiveSheet.Range(“b3:d3”).Borders(2).LineStyle=1
(其中Borders參數：1－左、2－右、3－頂、4－底、5－斜、6－斜/；LineStyle值：1與7－細實、2－細虛、4－點虛、9－雙細實線)
14．設置頁眉
eole.ActiveSheet.PageSetup.CenterHeader=“報表1”
15．設置頁腳
eole.ActiveSheet.PageSetup.CenterFooter=“第＆P頁”
16．設置頁眉到頂端邊距為2釐米
eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035
17．設置頁腳到底邊距為3釐米
eole.ActiveSheet.PageSetup.FooterMargin=3/0.035
18．設置頂邊距為2釐米
eole.ActiveSheet.PageSetup.TopMargin=2/0.035
19．設置底邊距為4釐米
eole.ActiveSheet.PageSetup.BottomMargin=4/0.035
20．設置左邊距為2釐米
veole.ActiveSheet.PageSetup.LeftMargin=2/0.035
21．設置右邊距為2釐米
eole.ActiveSheet.PageSetup.RightMargin=2/0.035
22．設置頁面水準居中
eole.ActiveSheet.PageSetup.CenterHorizontally=.t.
23．設置頁面垂直居中
eole.ActiveSheet.PageSetup.CenterVertically=.t.
24．設置頁面紙張大小(1－窄行8511 39－寬行1411)
eole.ActiveSheet.PageSetup.PaperSize=1
25．列印儲存格網線
eole.ActiveSheet.PageSetup.PrintGridlines=.t.
26．拷貝整個作業表
eole.ActiveSheet.UsedRange.Copy
27．拷貝指定區域
eole.ActiveSheet.Range(“A1:E2”).Copy
28．粘貼
eole.WorkSheet(“Sheet2”).Range(“A1”).PasteSpecial
29．在第2行之前插入一行
eole.ActiveSheet.Rows(2).Insert
30．在第2列之前插入一列
eole.ActiveSheet.Columns(2).Insert
31．設置字體
eole.ActiveSheet.Cells(2,1).Font.Name=“黑體”
32．設置字體大小
eole.ActiveSheet.Cells(1,1).Font.Size=25
33．設置字體為斜體
eole.ActiveSheet.Cells(1,1).Font.Italic=.t.
34．設置整列字體為粗體
eole.ActiveSheet.Columns(1).Font.Bold=.t.
35．清除儲存格公式
eole.ActiveSheet.Cells(1,4).ClearContents
36．預覽列印作業表
eole.ActiveSheet.PrintPreview
37．列印輸出作業表
eole.ActiveSheet.PrintOut
38．作業表另為
eole.ActiveWorkbook.SaveAs(“c:/temp/22.xls”)
39．放棄存檔
eole.ActiveWorkbook.saved=true
40．關閉作業簿
eole.Workbooks.close
41．退出Excel
eole.quit
42 合併
string worksheet,beginRowcol,EndRowCol
MyOLE.ActiveWorkBook.Sheets(worksheet).Range(BeginRowCol ":" EndRowCol).Select
MyOLE.ActiveWorkBook.Sheets(worksheet).Range(BeginRowCol ":" EndRowCol).Merge
43
MyOLE.getNumberOfSheets() //讀取 sheet 數
MyOLE.getSheetAt(整數) //由整數取sheet
44 sheet改名
MyOLE.ActiveWorkBook.Sheets(olename).select
MyOLE.ActiveWorkBook.Sheets(olename).name=newname
MyOLE=Create OLEObject
ConnectErr=MyOLE.ConnectToNewObject ("excel.Application")
MyOLE.visible=false
//打開指定的XLS檔啟動workbooks
MyOLE.application.workbooks.Open (FilePath)
//對XLS檔進行了改動以後，在關閉該檔時是否需要向使用者提出警告。
MyOLE.Application.DisplayAlerts = False
if isnull(MyOLE) then return -1 ;
if ConnectErr <0 then
choose case ConnectErr
case -1
messagebox('錯誤提示','無效的調用')
case -2
messagebox('錯誤提示','類名沒發現')
case -3
messagebox('錯誤提示','物件不能創建')
case -4
messagebox('錯誤提示','檔不能連接')
case -5
messagebox('錯誤提示','不能連接現在的物件')
case -6
messagebox('錯誤提示','檔無效')
case -7
messagebox("錯誤提示","檔不存在或已經打開")
case -8
messagebox("錯誤提示","伺服器不能裝載選擇的檔")
case -9
messagebox("錯誤提示","其他錯誤")
end choose
return -1
end if
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/18113.html
標籤：腳本語言
上一篇：inkPicture控制元件