build text file

C

Curt

Have the following that creates a text file. Problem it does use th entire
sheet that has data. Is it possible to have it only use those rows that are
complete. Here is what I've got.
Thanks to all


Dim FF As Long
Dim RowCount As Long
Dim ColCount As Long
Dim TotalFile As String
' Dim TotalFile As TextStream
FF = FreeFile
Open "C:\Parade\ZZZ.txt" For Output As #FF
For RowCount = 1 To Cells(Rows.Count, "A").End(xlUp).row
If RowCount > 1 Then TotalFile = TotalFile & vbCrLf
For ColCount = 1 To Cells(RowCount, Columns.Count).End(xlToLeft).Column
If ColCount > 1 Then TotalFile = TotalFile & ","
TotalFile = TotalFile & Cells(RowCount, ColCount).Value
Next
Next
Print #FF, TotalFile
Close #FF
 
J

Joel

See if this works

Dim FF As Long
Dim RowCount As Long
Dim ColCount As Long
Dim TotalFile As String
' Dim TotalFile As TextStream
FF = FreeFile
Open "C:\Parade\ZZZ.txt" For Output As #FF
For RowCount = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If WorksheetFunction.CountBlank( _
Range("A" & RowCount & ":F" & RowCount)) = 0 Then

If RowCount > 1 Then TotalFile = TotalFile & vbCrLf

For ColCount = 1 To _
Cells(RowCount, Columns.Count).End(xlToLeft).Column
If ColCount > 1 Then TotalFile = TotalFile & ","
TotalFile = _
TotalFile & Cells(RowCount, ColCount).Value
Next
End If
Next
Print #FF, TotalFile
Close #FF
 
C

Curt

I dont know if it is my server or what. When I click on link to read all I
get is a blank page. Got in thru another option in my favorites. This has
happened on others also.
Thanks
 
C

Curt

Not sure if poss added your code lines leaves out row with missing data as it
should. Is it poss to have a msg box come up on missing row. If to much will
create a message about missing data to appear before merge is done. All I
will say if data missing record will not print. Either way will work.
Thanks for help
 
J

Joel

When you get a blank page simply SIGN OUT in the upper right corner of the
Main Webpage at Microsoft. Microsoft added some security features a few
months ago that require you to logout occasionally. I find the problem when
I'm login on more than one PC at a time.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top