[已解决]EXCEL 操作

ap112

现在的EXCEL可以另存为PDF
  

是不是AU3不支持呀

有什么其他的办法把EXCEL直接转换成PDF吗

header

你找来最新的excel udf试下，转pdf可以用pdf虚拟打印机

h20040606

可以啊。参考一下Worksheet.ExportAsFixedFormat 方法

h20040606

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Documents and Settings\Administrator\桌面\测试_201408.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

kevinch

with $oexcel.activesheet
    .exportasfixedformat(0,@scriptdir&""&.name&".pdf")
endwith

这样试下

xjlijia

受教了，谢谢诸位了。

ap112

回复 5# kevinch


谢谢！很好！受教

ap112

回复 5# kevinch


    大师 问一下 有时间帮写个代码
要求 ：
1、新建一个word，在word中插入图片
2、一页里面添加一张照片，有多少张照片word就有多少页
3、然后保存word到桌面


1、3有函数  2 呢？？？？？？？？？

kevinch

回复 8# ap112

$path="D:\Pictures"
$word=ObjCreate("word.application")
$word.visible=True
$doc=$word.documents.add
$search=FileFindFirstFile($path&"*.jpg")
If $search<>-1 Then
        $n=0
        While 1
                $pic=FileFindNextFile($search)
                If @error Or StringLen($pic)=0 Then ExitLoop
                $n+=1
                If $n>1 Then $doc.application.selection.insertbreak(7)
                $doc.application.selection.inlineshapes.addpicture($path&$pic,False,True)
                $doc.application.selection.endkey(6)
        WEnd
        FileClose($search)
EndIf
$doc.saveas(@DesktopDir&"\test.doc")
$doc.close
$word.quit

用这个试下

ap112

回复 9# kevinch


    这个是可以的，只是照片过大显示不全，将照片改一下就可以了。还有中间几行主要的代码，是VBA操作吧？给个注释呗！

ap112

回复 9# kevinch


    可以设置一下页边距，让图片尽量尽量盖全页面

kevinch

回复 11# ap112

$path="D:\Pictures"
$word=ObjCreate("word.application")
$word.visible=True
$doc=$word.documents.add
With $doc.pagesetup  ;页面设置，页边距1cm，需转换成磅数，乘28.35
        .leftmargin=1*28.35
        .rightmargin=1*28.35
        .topmargin=1*28.35
        .bottommargin=1*28.35
EndWith
$search=FileFindFirstFile($path&"*.jpg")
If $search<>-1 Then
        $n=0
        While 1
                $pic=FileFindNextFile($search)
                If @error Or StringLen($pic)=0 Then ExitLoop
                $n+=1
                If $n>1 Then $doc.application.selection.insertbreak(7)  ;如果不是第一张图，插入分页符
                $pic=$doc.application.selection.inlineshapes.addpicture($path&$pic,False,True)  ;插入图片
                With $pic
                        .lockaspectratio=True  ;锁定图片纵横比，防止调整大小时图片变形
                        If .width>$doc.pagesetup.pagewidth Or .height>$doc.pagesetup.pageheight Then   ;判断图片大小是否大于页面大小
                                If .width/$doc.pagesetup.pagewidth>.height/$doc.pagesetup.pageheight Then  ;判断图片长宽比谁超出更大，以最大比例方向缩小到页面大小
                                        .width=$doc.pagesetup.pagewidth
                                Else
                                        .height=$doc.pagesetup.pageheight
                                EndIf
                        EndIf
                        .range.ParagraphFormat.Alignment=1  ;图片在页面内居中
                EndWith
                $doc.application.selection.endkey(6)  ;跳转到最末尾
        WEnd
        FileClose($search)
EndIf
$doc.saveas(@DesktopDir&"\test.doc")
$doc.close
$word.quit

godwin_z

这里面还是有很多东西的，很强大

gwgelin

支持楼主，这贴必须得顶

macran

_Excel_Export