[Visual Basic] 纯文本查看 复制代码Sub scbgtc()

[/quote]

您好，还有个问题咨询下您：我用VB写了个实现之前表格的功能，代码如下，总是报错，您可有时间帮我看下，很感谢，报错还是保存那边的代码。ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _

"C:\原始记录存档\" & ActiveSheet.Range("L7").Value & ".pdf", Quality:= _

xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _

OpenAfterPublish:=False

[mw_shl_code=vb,true]Dim xlapp As Excel.Application

Dim xlbook As Excel.Workbook

Dim xlheet As Excel.Worksheet

Private Sub Command1_Click()

Set xlapp = CreateObject("excel.application")

Set xlbook = xlapp.Workbooks.Open("C:\Users\ALEX WU\Desktop\成分含量分析 - 副本.xlsm")

xlapp.Visible = True

Set xlsheet = xlbook.Worksheets("sheet1")

xlapp.Worksheets(1).Cells(6, 2) = Text1.Text '填入样品编号'

xlapp.Worksheets(1).Cells(6, 5) = Text2.Text '填入产品名称'

xlapp.Worksheets(1).Cells(23, 3) = Combo1.Text + " " + Combo2.Text '填入定性结论'

xlapp.Worksheets(2).Cells(8, 4) = Combo1.Text '填入可溶组分1'

xlapp.Worksheets(2).Cells(8, 5) = Combo2.Text '填入不溶组分2'

xlapp.Worksheets(2).Cells(8, 8) = Combo4.Text '填入使用试剂'

xlapp.Worksheets(2).Cells(10, 4) = Combo3.Text

xlapp.Worksheets(2).Cells(10, 5) = Combo3.Text + 1

xlapp.Worksheets(2).Cells(10, 10) = Combo3.Text

xlapp.Worksheets(2).Cells(10, 11) = Combo3.Text + 1

xlapp.Worksheets(2).Cells(14, 4) = Text3.Text '填入式样干重1'

xlapp.Worksheets(2).Cells(14, 5) = Text4.Text '填入式样干重2'

xlapp.Worksheets(2).Cells(14, 10) = Text5.Text '填入不溶解干重1'

xlapp.Worksheets(2).Cells(14, 11) = Text6.Text '填入不溶解干重2'

End Sub

Private Sub Command2_Click()

'

' 一键生成报告+弹窗确认

'

'

xlbook.Close (True)

If MsgBox("是否确定要保存为PDF", vbOKCancel) = vbOK Then

Dim resFolder

resFolder = Dir("C:\原始记录存档\", vbDirectory)

If resFolder = "" Then

MkDir ("C:\原始记录存档\")

End If

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _

"C:\原始记录存档\" & ActiveSheet.Range("L7").Value & ".pdf", Quality:= _

xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _

OpenAfterPublish:=False

End If

xlapp.Quit

Set xlapp = Nothing

End Sub