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

zxh48911805

等　级：新手上路
帖　子：27
专家分：0
注　册：2022-7-9
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：14

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

原始数据.zip (50.03 KB)

以前是用VBA做的，现在想用VB6。只能输出开头的部分，各位大神可以帮我看下，我的问题出在哪里吗？

搜索更多相关主题的帖子: 输出　 VBA　VB6　修改　

2023-01-16 10:55

zxh48911805

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

第 3 楼

得分: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

zxh48911805

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

第 5 楼

得分:0

回复 6楼阳光上的桥

Option Explicit怎么加？

2023-01-16 13:27

zxh48911805

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

第 7 楼

得分:0

数据.zip (33.78 KB)

试试这个我转换了下格式

2023-01-16 15:44

zxh48911805

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

第 9 楼

得分:0

回复 13楼 yuma

我新传了一个转换格式的，还有你传出来的数据和我压缩包里的1.txt不对吧

2023-01-16 15:47