[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