|
build text file
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 |
build text file
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 "Curt" wrote: 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 |
build text file
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 "Joel" wrote: 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 "Curt" wrote: 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 |
build text file
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 "Joel" wrote: 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 "Curt" wrote: 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 |
build text file
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. "Curt" wrote: 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 "Joel" wrote: 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 "Curt" wrote: 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 |
| All times are GMT +1. The time now is 01:25 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com