VFP 愛用者社區

[區榮熾]

oleApp=Createobject("Excel.Application")
If Type("oleApp")="U"
=MessageBox("本機上未安裝 EXCEL 軟體 ! ",0+48, (Sys_na2) )
Releas oleApp, cDir_old
Return
Endif
Excelfile= SYS(5)+Curdir()+"Data\Xls\Score_base.xls"
oleApp.Visible=.T.
oleApp.Workbooks.open( Excelfile)
o=oleApp.activeWorkbook.activesheet
o.Range("B:B,C:C,E:E,F:F,J:J,L:L,M:M,R:R").Select
With o.Selection
.ColumnWidth = 14
.NumberFormatLocal = "#,##0.0_ "
.Font.Name = "新細明體"
.FontStyle = "斜體"
ENDWITH
VFP是前段,資料處理好要交EXCEL印出,以上程式碼居然出錯:
OLE 錯誤程式碼 0x80020006: UNknown name

不解的是 錯在 With o.Selection 這一行,我也是抄來的(一字一字的抄,有抄錯?)
恭請識者指導.....

[宏偉軟件]

oleApp=Createobject("Excel.Application")
If Type("oleApp")="U"
=MessageBox("本機上未安裝 EXCEL 軟體 ! ",0+48, (Sys_na2) )
Releas oleApp, cDir_old
Return
Endif
Excelfile= SYS(5)+Curdir()+"Data\Xls\Score_base.xls"
oleApp.Visible=.T.
oleApp.Workbooks.open( Excelfile)
o=oleApp.activeWorkbook.activesheet
o.Range("B:B,C:C,E:E,F:F,J:J,L:L,M:M,R:R").ColumnWidth=14
o.Range("B:B,C:C,E:E,F:F,J:J,L:L,M:M,R:R").NumberFormatLocal = "#,##0.0_ "
o.Range("B:B,C:C,E:E,F:F,J:J,L:L,M:M,R:R").Font.Name = "新細明體"
o.Range("B:B,C:C,E:E,F:F,J:J,L:L,M:M,R:R").Font.FontStyle = "斜體"

[garfield]

.FontStyle = "斜體"
改成
.font..FontStyle = "斜體"

[區榮熾]

[bin1x]

可能多重選擇,不能形成它(vfp)認識的物件吧,哈
也許在那段程式中斷,在debug 視窗,看o.selection可不可以展開
就知道它是不是物件了

[區榮熾]

[chilin]

oleApp=Createobject("Excel.Application")
If Type("oleApp")="U"
=MessageBox("本機上未安裝 EXCEL 軟體 ! ",0+48, (Sys_na2) )
Releas oleApp, cDir_old
Return
Endif
Excelfile= SYS(5)+Curdir()+"Data\Xls\Score_base.xls"
oleApp.Visible=.T.
oleApp.Workbooks.open( Excelfile)

oleApp.WORKSHEETS("SHEET1").ACTIVATE
oleApp.COLUMNS("B:B").ColumnWidth=14

OR
oleApp.COLUMNS(2).ColumnWidth=14

這樣試試看!!!

[區榮熾]

[sean27]

>>> With o.Selection
應該是 with oleApp.Selection 才對吧

[區榮熾]

[朱育興]

oleApp=Createobject("Excel.Application")
If Type("oleApp")="U"
=MessageBox("本機上未安裝 EXCEL 軟體 ! ",0+48, (Sys_na2) )
Releas oleApp, cDir_old
Return
Endif
Excelfile= SYS(5)+Curdir()+"Data\Xls\Score_base.xls"
oleApp.Visible=.T.
oleApp.Workbooks.open( Excelfile)
o=oleApp.activeWorkbook.activesheet
**下兩行改為其下的三行，原因懶得說，多多利用 [命令] 視窗的 IntelliSense 功能 (當然要有支援此功能的 VFP 版本)
**o.Range("B:B,C:C,E:E,F:F,J:J,L:L,M:M,R:R").Select
**With o.Selection
bb = o.Range("B:B,C:C,E:E,F:F,J:J,L:L,M:M,R:R")
WITH bb
.Select
.ColumnWidth = 14
.NumberFormatLocal = "#,##0.0_ "
.Font.Name = "新細明體"
** 下一行改為其下一行
**.FontStyle = "斜體"
.Font.FontStyle = "斜體"
ENDWITH

[區榮熾]

[sean27]

我試了以下程式碼, 程式執行無誤

oleApp=Createobject("Excel.Application")
oleApp.Visible=.T.
oleapp.workbooks.add
oleApp.SHEETS.ADD
o = oleapp.activesheet
o.Range("B:B,C:C,E:E,F:F,J:J,L:L,M:M,R:R").Select
With oleapp.Selection
.font .Name = "新細明體"
.font .size=20
.ColumnWidth = 14
.NumberFormatLocal = "#,##0.0_ "
endwith


RETURN
=====================
但是如果 with oleapp.Selection 改成 with o.Selection
就會發生 ole 錯誤, 其實 o 跟 oleapp 是不一樣的 !!

[區榮熾]