如题，代码如下：

Sub txttoexcel(txtfile As String, distancechar As String)
    '建立excel对象
    Dim hang As Integer
    Dim XlApp As New Excel.Application
    Dim xlwb As New Excel.Workbook
    Dim xlst As New Excel.Worksheet
    Set XlApp = CreateObject("excel.application")
    Set xlwb = XlApp.Workbooks.Add
    xlwb.SaveAs FileName:=Left(txtfile, Len(txtfile) - 4) & ".xlsx"
    Set xlst = xlwb.Worksheets(1)
    '开始转换
    Dim J As Integer, linenext As String, strb() As String
    J = 1
    hang = 0
    Open txtfile For Input As #1
    Do Until EOF(1)
        Line Input #1, linenext
        hang = hang + 1
        strb = Split(linenext, distancechar)
        For i = 0 To UBound(strb)
            xlst.Cells(J, i + 1) = strb(i)
        Next
        J = J + 1
    Loop
    Close #1    '结束，释放空间
    XlApp.Workbooks(1).Worksheets(1).Cells.HorizontalAlignment = xlCenter
    XlApp.Workbooks(1).Worksheets(1).Cells.VerticalAlignment = xlCenter
    XlApp.Workbooks(1).Worksheets(1).Cells.WrapText = False
    XlApp.Workbooks(1).Worksheets(1).Cells.Orientation = 0
    XlApp.Workbooks(1).Worksheets(1).Cells.AddIndent = False
    XlApp.Workbooks(1).Worksheets(1).Cells.IndentLevel = 0
    XlApp.Workbooks(1).Worksheets(1).Cells.ShrinkToFit = False
    XlApp.Workbooks(1).Worksheets(1).Cells.ReadingOrder = xlContext
    XlApp.Workbooks(1).Worksheets(1).Cells.MergeCells = False
    XlApp.Workbooks(1).Worksheets(1).Cells.EntireColumn.AutoFit
    XlApp.Workbooks(1).Worksheets(1).Range(Cells(1, 1), Cells(hang, 140)).Borders.LineStyle = xlContinuous
    xlwb.Save

    
    Set xlst = Nothing
    xlwb.Close
    Set xlwb = Nothing
    XlApp.Quit
    Set XlApp = Nothing
    
End Sub

现在问题是

如果执行语句如下，可以正常运行：

Private Sub Command1_Click()
txttoexcel App.Path & "\SUMMARY_Week.csv", ","
End Sub

但如果执行语句如下，运行到这一条语句就会报错：

XlApp.Workbooks(1).Worksheets(1).Range(Cells(1, 1), Cells(hang, 140)).Borders.LineStyle = xlContinuous

Private Sub Command1_Click()
txttoexcel App.Path & "\SUMMARY_Week.csv", ","
txttoexcel Dir1.Path & "\SUMMARY.csv", ","
End Sub

请教各位路过的大大们怎么会出错？如何修改？

[此贴子已经被作者于2022-12-16 16:24编辑过]

也就是说，上面的txttoexcel只能运行一次，连着运行第二次就出错。
是什么问题呢？是第一次运行的excel没有退干净吗？
麻烦路过的大大帮着检查一下，给个解决方案吧？谢谢啦！

cells没有父级对象所以识别错误吧？
XlApp.Workbooks(1).Worksheets(1).Cells.HorizontalAlignment = xlCenter
    XlApp.Workbooks(1).Worksheets(1).Cells.VerticalAlignment = xlCenter
    XlApp.Workbooks(1).Worksheets(1).Cells.WrapText = False
    XlApp.Workbooks(1).Worksheets(1).Cells.Orientation = 0
    XlApp.Workbooks(1).Worksheets(1).Cells.AddIndent = False
    XlApp.Workbooks(1).Worksheets(1).Cells.IndentLevel = 0
    XlApp.Workbooks(1).Worksheets(1).Cells.ShrinkToFit = False
    XlApp.Workbooks(1).Worksheets(1).Cells.ReadingOrder = xlContext
    XlApp.Workbooks(1).Worksheets(1).Cells.MergeCells = False
    XlApp.Workbooks(1).Worksheets(1).Cells.EntireColumn.AutoFit
    XlApp.Workbooks(1).Worksheets(1).Range(Cells(1, 1), Cells(hang, 140)).Borders.LineStyle = xlContinuous
上面这段话，改成with语句呗
with XlApp.Workbooks(1).Worksheets(1)
    .Cells.VerticalAlignment = xlCenter
    ……(省略中间一堆）
    .Range(.Cells(1, 1), .Cells(hang, 140)).Borders.LineStyle = xlContinuous
end with
或者不修改，把出错的那句改成XlApp.Workbooks(1).Worksheets(1).Range("A1:EJ" & hang).Borders.LineStyle = xlContinuous试试

Sub TxtToExcel(TxtFile As String, DisTancechar As String)
    '建立excel对象
    Dim hang As Integer
    Set XlApp = CreateObject("excel.application")
    Set xlwb = XlApp.Workbooks.Add
    xlwb.SaveAs FileName:=Left(TxtFile, Len(TxtFile) - 4) & ".xlsx"
    Set xlst = xlwb.Worksheets(1)
    '开始转换
    Dim J As Integer, linenext As String, strb() As String
    J = 1
    hang = 0
    Open TxtFile For Input As #1
    Do Until EOF(1)
        Line Input #1, linenext
        hang = hang + 1
        strb = Split(linenext, DisTancechar)
        For i = 0 To UBound(strb)
            xlst.Cells(J, i + 1) = strb(i)
        Next
        J = J + 1
    Loop
    Close #1    '结束，释放空间
    XlApp.Workbooks(1).Worksheets(1).Cells.WrapText = False
    XlApp.Workbooks(1).Worksheets(1).Cells.Orientation = 0
    XlApp.Workbooks(1).Worksheets(1).Cells.AddIndent = False
    XlApp.Workbooks(1).Worksheets(1).Cells.IndentLevel = 0
    XlApp.Workbooks(1).Worksheets(1).Cells.ShrinkToFit = False
    XlApp.Workbooks(1).Worksheets(1).Cells.MergeCells = False
    XlApp.Workbooks(1).Worksheets(1).Cells.EntireColumn.AutoFit
    XlApp.Workbooks(1).Worksheets(1).Range("A1:EJ" & hang).Borders.LineStyle = xlContinuous
    xlwb.Save

    
    Set xlst = Nothing
    xlwb.Close
    Set xlwb = Nothing
    XlApp.Quit
    Set XlApp = Nothing
    
End Sub

Private Sub Form_Load()
TxtToExcel "C:\Users\Admin\Desktop\1.csv", ","
End Sub