Printing cell value from different sheet to a file

[zcopp]

When trying to print from the sheet 'CashonHand' I get a error 400. The rest of code works fine without this one line. I googled but unable to find a way to make it work.

TIA, Dennis

Sub nw()
    Dim afile As String
    afile = "c:\temp\temp1\nw.txt"
    If Len(Dir$(afile)) > 0 Then Kill afile
    Dim str As String
    str = "A15,A12,M12,F6,G6,H6,I6"
    spl = Split(str, ",")
Open "c:\temp\temp1\nw.txt" For Append As #1
    For x = 0 To 6
        Print #1, ActiveSheet.Range(spl(x)).Text
    Next x
           [I][B] Print #1, ActiveWorkbook.Worksheets("CashonHand").Range(“B489”).Text[/B][/I]
Close #1
    ChDir ("C:\Dennis\Software\LapBatch\uploading")
    Shell ("C:\Dennis\Software\LapBatch\uploading\nwUpload.bat")
End Sub

 

[Mentor82]

Hi,
You get an error because you cannot print the whole array/range to text file at once. What you try to do is to print values from different ranges in one text line(str = "A15,A12,M12,F6,G6,H6,I6") which is impossible. You should build a text line with values from those ranges first, assign it to string and print the string to txt file.

Regards,
Sebastian

When trying to print from the sheet 'CashonHand' I get a error 400. The rest of code works fine without this one line. I googled but unable to find a way to make it work.

TIA, Dennis

Sub nw()
    Dim afile As String
    afile = "c:\temp\temp1\nw.txt"
    If Len(Dir$(afile)) > 0 Then Kill afile
    Dim str As String
    str = "A15,A12,M12,F6,G6,H6,I6"
    spl = Split(str, ",")
Open "c:\temp\temp1\nw.txt" For Append As #1
    For x = 0 To 6
        Print #1, ActiveSheet.Range(spl(x)).Text
    Next x
           [I][B] Print #1, ActiveWorkbook.Worksheets("CashonHand").Range(“B489”).Text[/B][/I]
Close #1
    ChDir ("C:\Dennis\Software\LapBatch\uploading")
    Shell ("C:\Dennis\Software\LapBatch\uploading\nwUpload.bat")
End Sub

 

[zcopp]

Hi,
You get an error because you cannot print the whole array/range to text file at once. What you try to do is to print values from different ranges in one text line(str = "A15,A12,M12,F6,G6,H6,I6") which is impossible. You should build a text line with values from those ranges first, assign it to string and print the string to txt file.

Regards,
Sebastian

Sebastion, it prints the cells in the array fine. My problem is this line of code which I highlighted in my original post:

Print #1, ActiveWorkbook.Worksheets("CashonHand").Range(“B489”).Text