VBA adding extra quotation marks

[AnthonyMinnaar]

Hi folks,

When I run the VBA code as seen below, it adds extra quotation marks in the output. It just needs to be "TNC:\ANTHONY\NLP.D". Now I'm not too sure if it is the code that is adding these extra quotation marks, or just a setting in the cellvalue itself. Has anyone got any ideas how to get rid of these?

Your help is very much appreciated!

Sub POSTB()
Sheets("PGM").Select
Columns.EntireColumn.Hidden = False
Rows.EntireRow.Hidden = False
For Each c In Range("A1:A115")
If c.Value = "" Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If
Next
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
Set WorkRng = Worksheets("PGM").Range("A1:G115")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.SpecialCells(xlCellTypeVisible).Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="H (*.H), *.H")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Sheets("ZWALUW").Select
End Sub

 

[RoryA]

When you save it as a text file, any cell that contains quotes will have them doubled. Why is your formula wrapping the path in quotes?

 

[AnthonyMinnaar]

When you save it as a text file, any cell that contains quotes will have them doubled. Why is your formula wrapping the path in quotes?

thanks for your reply!

the file will be send to a CNC machine and it gives an error if the path isn't wrapped in quotes.

The picture below is the output code that I sent to the machine. It cant read it this way.

 

[RoryA]

Try saving it in .prn format (formatted text). You can always rename the file with a .txt extension afterwards?

 

[AnthonyMinnaar]

Try saving it in .prn format (formatted text). You can always rename the file with a .txt extension afterwards?

it is saved as .H, as that is the extension the CNC machine reads. I'm really no expert in VBA code writing, and mainly copy and paste code. Could you tell me whereabouts I should change the format to .prn in the VBA code?

 

[RoryA]

Use FileFormat:=xlTextPrinter in the SaveAs line.

 

[AnthonyMinnaar]

Use FileFormat:=xlTextPrinter in the SaveAs line.

This works! thank you very much, good sir! Have a good weekend!

 

[RoryA]

Glad we could help! Have a good one.