1

何百もの Excel ファイルがフォルダーに保存されています。これらをPDFに変換するためにVisual Basicで何かを書くにはどうすればよいかと思っていました。Excel 2010 の名前を付けて保存機能を呼び出して別のフォルダーに保存する方法はありますか? Google とここで確認しましたが、サードパーティのアプリケーションへの参照しか見つかりませんでした。

4

2 に答える 2

2 
 Dim excel As Microsoft.Office.Interop.Excel.Application
    excel = New Microsoft.Office.Interop.Excel.Application
    Dim tmpWorkbooks As Workbooks
    tmpWorkbooks = excel.Workbooks
Dim wb As Microsoft.Office.Interop.Excel.Workbook
    wb = tmpWorkbooks.Open(pathOfExcelFile)
    excel.Visible = False
  wb.Activate()
wb.ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, fileName, , , , 1, 1, False, )
于 2012-06-26T14:50:18.857 に答える
2

Excel 2010 では、次の VBA コードを使用できます。

ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="C:\Temp\Workbook1.pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=True, _
    OpenAfterPublish:=False

もちろんFilename、マシンの正しいパスに設定する必要ActiveSheetがあります。ワークブックに複数のシートがある場合は、シートを反復処理する必要があると思います。ExportAsFixedFormat 関数の詳細については、MSDNを参照してください。

于 2012-06-26T14:54:00.750 に答える