Issue to write

Question

Issue to write

Scott Huang 3,511

Hi,
It does not write to text file per codes below. What is the reason? There is proper values in the Excel file.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Message0 As String
Message0 = ""
...
Write_to_Text_file Message0
End Sub

Sub Write_to_Text_file(Para_Dummy As String)
Dim File0 As String, RowID As Integer
File0 = Replace(Replace(ActiveWorkbook.Path & "..\Index\RangeStatus.txt", "/", "\"), "http:", "")
RowID = 1
Open File0 For Output As #1

Do While True
    RowID = RowID + 1
    If Trim(Worksheets("Main").Cells(RowID, 1).Value) = "" Then
        Exit Do
    End If
    Write #1, Trim(Worksheets("Main").Cells(RowID, 1).Value) & "," & Trim(Worksheets("Main").Cells(RowID, 2).Value) & "," & Trim(Worksheets("Main").Cells(RowID, 3).Value) & "," & Trim(Worksheets("Main").Cells(RowID, 4).Value) & "," & Trim(Worksheets("Main").Cells(RowID, 5).Value) & "," & Trim(Worksheets("Main").Cells(RowID, 6).Value) & "," & Trim(Worksheets("Main").Cells(RowID, 7).Value) & "," & Trim(Worksheets("Main").Cells(RowID, 8).Value) & "," & Trim(Worksheets("Main").Cells(RowID, 9).Value) & "," & Trim(Worksheets("Main").Cells(RowID, 10).Value)

Loop
Close #1
End Sub

Viorel 127K Reputation points

2021-03-23T08:45:50.667+00:00

Did you check if File0 is a valid path? Show some details. Also check that the 'Write #1' line was actually achieved by your loop.

1 answer

Your answer

Viorel 127K Reputation points

2021-03-23T08:45:50.667+00:00

Did you check if File0 is a valid path? Show some details. Also check that the 'Write #1' line was actually achieved by your loop.

Answer 1

Scott Huang 3,511

Hi,
The path is correct and my loop is having way to exit properly. What is the issue?

Viorel 127K Reputation points

2021-03-23T14:07:36.79+00:00

If possible, show the exact value of File0 here, or fix it if you already found the problem.

Share via

Issue to write

1 answer

Your answer