1,217
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
ukyoxh 2004-04-20
- 打赏
- 举报
'例子来了
Dim exl As New Excel.Application
Dim book As Excel.Workbook
Dim sheet As Excel.Worksheet
'先使用excel制作一个模板
Set book = exl.Workbooks.Open("c:\temp1.xls")
Set sheet = book.Worksheets(1)
book.Application.DisplayAlerts = False
'在excel的格子中写入你想打印的内容
With sheet
'.Cells(Row, col) = ""
'这里使用
Range("C4").Select
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Administrator\My Documents\My Pictures\样品.jpg"). _
Select
'Selection.AutoFill Destination:=Range("A18:J18"), Type:=xlFillDefault
'这里使用
End With
book.Save
book.Close
Set book = Nothing
exl.Quit
Set exl = Nothing
Dim exl As New Excel.Application
Dim book As Excel.Workbook
Dim sheet As Excel.Worksheet
'先使用excel制作一个模板
Set book = exl.Workbooks.Open("c:\temp1.xls")
Set sheet = book.Worksheets(1)
book.Application.DisplayAlerts = False
'在excel的格子中写入你想打印的内容
With sheet
'.Cells(Row, col) = ""
'这里使用
Range("C4").Select
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Administrator\My Documents\My Pictures\样品.jpg"). _
Select
'Selection.AutoFill Destination:=Range("A18:J18"), Type:=xlFillDefault
'这里使用
End With
book.Save
book.Close
Set book = Nothing
exl.Quit
Set exl = Nothing
shierren 2004-04-19
- 打赏
- 举报
在Excel里面录制宏（插入图片），然后COPY下VBA代码直接用就可以了。
