请教各位，把下面两段代码连接起来使用

来源：百度知道 编辑：UC知道 时间：2024/05/26 05:00:00
有两代码，自己找的 ，想要连接起来使用，请问怎么做，
Dim ExistFile As String
DlgFile1.CancelError = True
DlgFile1.InitDir = App.Path + "\data"
DlgFile1.Filter = "Excel File(*.xls)|*.xls"
DlgFile1.DefaultExt = "xls"
DlgFile1.DialogTitle = "请输入新建立的数据文件名"
DlgFile1.ShowSave
ExistFile = Dir(DlgFile1.FileName)
If ExistFile <> "" Then
If MsgBox("文件已存在，是否覆盖？", vbOKCancel) = vbCancel Then Exit Sub
End If
DataFileName = DlgFile1.FileName

第二段
Set xlExcel = CreateObject("Excel.Application")
xlExcel.Workbooks.Open "e:\1.xls"
Set xlBook = xlExcel.Workbooks("1.xls")
Set xlSheet = xlBook.Worksheets(1)

xlSheet.Cells(1, 1) = "输出数据"
xlSheet.Cells(2, 1) = "额定值和性能"
xlSheet.Cells(3, 1) = "额定功率PN"
xlSheet.Cells(3, 2).Value = Format(PN, "0.000")
xlSheet.Cells(4, 1) = "

Dim ExistFile As String
DlgFile1.CancelError = True
DlgFile1.InitDir = App.Path + "\data"
DlgFile1.Filter = "Excel File(*.xls)|*.xls"
DlgFile1.DefaultExt = "xls"
DlgFile1.DialogTitle = "请输入新建立的数据文件名"
DlgFile1.ShowSave
ExistFile = Dir(DlgFile1.Filename)
If ExistFile <> "" Then
If MsgBox("文件已存在，是否覆盖？", vbOKCancel) = vbCancel Then Exit Sub
End If
DataFileName = DlgFile1.Filename
Set xlExcel = CreateObject("Excel.Application")
xlExcel.Workbooks.Open DataFileName
Set xlBook = xlExcel.Workbooks(DataFileName)
Set xlSheet = xlBook.Worksheets(1)

xlSheet.Cells(1, 1) = "输出数据"
xlSheet.Cells(2, 1) = "额定值和性能"
xlSheet.Cells(3, 1) = "额定功率PN"
xlSheet.Cells(3, 2).Value = Format(PN, "0.000")
xlSheet.Cells(4, 1) = "额定电压UN"
xlSheet.Cells(4, 2).Value = Format(UN, &quo