各位大神可以帮我看下，我的问题出在哪里吗？可以帮我修改下吗感谢。 - VB6论坛

阳光上的桥

等　级：版主
威　望：38
帖　子：129
专家分：772
注　册：2023-1-12

第 2 楼

得分:0

VB6里面不要使用无头的Cells(1,42)访问单元格，至少应该xlsheet.Cells(1,42，应该考虑使用arr(1,42)才是最佳，前提是A1非空才正确。

另外，VBA.Format也不对吧。

强烈建立Option Explicit，这样这些语句就会编译报错，不会导致无法理解的逻辑问题。

程序代码：

        oExcel.Workbooks.Open File_Selected    '打开文件
        nm = Split(File_Selected, "\")(UBound(Split(File_Selected, "\")))    '获取工作簿名称
        Set xlBook = oExcel.Workbooks(nm)
        Set xlsheet = xlBook.Worksheets("数据")    '表名注意切换#######
        arr = xlsheet.UsedRange    '获取到数组
        a = UBound(arr)    '获取数量
        Form_Activate

     Open "D:\原始资料\" & Cells(1, 42) & "-CJ-" & myDate & ".txt" For Output As #1
    Text1.Text = "D:\原始资料\CS-1-WY-" & VBA.Format(Now(), "yyyymmdd") & ".dat,输出完成"
     Print #1, Cells(1, 1).Value & " "

2023-01-16 11:43

zxh48911805

等　级：新手上路
帖　子：30
专家分：0
注　册：2022-7-9

第 4 楼

得分:0

回复 3楼 zxh48911805

代码我已修改了还是只能出来一点

Open "D:\原始资料\" & arr(1, 42) & "-CJ-" & myDate & ".txt" For Output As #1
    Text1.Text = "D:\原始资料\CS-1-WY-" & VBA.Format(Now(), "yyyymmdd") & ".dat,输出完成"
     Print #1, arr(1, 1) & " "
     If arr(2, 2) < 0 Then
      Print #1, arr(2, 1) & VBA.Format(arr(2, 2), "00000000") & " "
     Else
      Print #1, arr(2, 1) & "+" & VBA.Format(arr(2, 2), "00000000") & " "
     End If
   For b = 1 To C
     If arr(b * 3, 2) < 0 Then
      Print #1, arr(b * 3, 1) & VBA.Format(arr(b * 3, 2), "00000000") & " " & arr(b * 3, 3) & VBA.Format(arr(b * 3, 4), "00000000") & " "
     Else
      Print #1, arr(b * 3, 1) & "+" & VBA.Format(arr(b * 3, 2), "00000000") & " " & arr(b * 3, 3) & VBA.Format(arr(b * 3, 4), "00000000") & " "
     End If

     If arr(1 + b * 3, 2) < 0 Then
      Print #1, arr(1 + b * 3, 1) & VBA.Format(arr(1 + b * 3, 2), "00000000") & " " & arr(1 + b * 3, 3) & VBA.Format(arr(1 + b * 3, 4), "00000000") & " "
     Else
      Print #1, arr(1 + b * 3, 1) & "+" & VBA.Format(arr(1 + b * 3, 2), "00000000") & " " & arr(1 + b * 3, 3) & VBA.Format(arr(1 + b * 3, 4), "00000000") & " "
     End If

    If arr(2 + b * 3, 2) < 0 Then
     If arr(2 + b * 3, 6) < 0 Then
      Print #1, arr(2 + b * 3, 1) & VBA.Format(arr(2 + b * 3, 2), "00000000") & " " & arr(2 + b * 3, 3) & VBA.Format(Left(arr(2 + b * 3, 4), 8), "00000000") & " " & arr(2 + b * 3, 5) & VBA.Format(arr(2 + b * 3, 6), "00000000") & " "
     Else
      Print #1, arr(2 + b * 3, 1) & VBA.Format(arr(2 + b * 3, 2), "00000000") & " " & arr(2 + b * 3, 3) & VBA.Format(Left(arr(2 + b * 3, 4), 8), "00000000") & " " & arr(2 + b * 3, 5) & "+" & VBA.Format(arr(2 + b * 3, 6), "00000000") & " "
     End If
    Else
     If arr(2 + b * 3, 6) < 0 Then
      Print #1, arr(2 + b * 3, 1) & "+" & VBA.Format(arr(2 + b * 3, 2), "00000000") & " " & arr(2 + b * 3, 3) & VBA.Format(Left(arr(2 + b * 3, 4), 8), "00000000") & " " & arr(2 + b * 3, 5) & VBA.Format(arr(2 + b * 3, 6), "00000000") & " "
     Else
      Print #1, arr(2 + b * 3, 1) & "+" & VBA.Format(arr(2 + b * 3, 2), "00000000") & " " & arr(2 + b * 3, 3) & VBA.Format(Left(arr(2 + b * 3, 4), 8), "00000000") & " " & arr(2 + b * 3, 5) & "+" & VBA.Format(arr(2 + b * 3, 6), "00000000") & " "
     End If
    End If
   Next
      Print #1, ""
      Close #1
line1:
        xlBook.Close False    '关闭工作簿，结束进程
        Set xlBook = Nothing
        oExcel.Quit
        Set xlExcel = Nothing
    End If
End Sub

2023-01-16 11:52