H
Help?
Hello,
I am trying to remove commas and "" from a xlcsv record by macro.
I am getting:
"%!
XGF
9999 SETBUFSIZE
(,) SETDBSEP
QSTRIP_on
(GuntherIPEP.jdt) SETJDT
(IPEP.dbm) STARTDBM",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
I need it to be:
%!
XGF
9999 SETBUFSIZE
(,) SETDBSEP
QSTRIP_on
(GuntherIPEP.jdt) SETJDT
(IPEP.dbm) STARTDBM
The code I am using is:
Rows("1:1").Select
Selection.Insert Shift:=xlDown
ActiveCell.FormulaR1C1 = _
"%!" & Chr(10) & "XGF" & Chr(10) & "9999 SETBUFSIZE" & Chr(10) &
"(,) SETDBSEP" & Chr(10) & "QSTRIP_on" & Chr(10) & "(GuntherIPEP.jdt) SETJDT"
& Chr(10) & "(IPEP.dbm) STARTDBM"
With ActiveCell.Characters(Start:=1, Length:=91).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
Does anyone have any suggestions of how to remove the commas delimiters and
the "" shown in the above that I can incorporate into the macro?
I am trying to remove commas and "" from a xlcsv record by macro.
I am getting:
"%!
XGF
9999 SETBUFSIZE
(,) SETDBSEP
QSTRIP_on
(GuntherIPEP.jdt) SETJDT
(IPEP.dbm) STARTDBM",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
I need it to be:
%!
XGF
9999 SETBUFSIZE
(,) SETDBSEP
QSTRIP_on
(GuntherIPEP.jdt) SETJDT
(IPEP.dbm) STARTDBM
The code I am using is:
Rows("1:1").Select
Selection.Insert Shift:=xlDown
ActiveCell.FormulaR1C1 = _
"%!" & Chr(10) & "XGF" & Chr(10) & "9999 SETBUFSIZE" & Chr(10) &
"(,) SETDBSEP" & Chr(10) & "QSTRIP_on" & Chr(10) & "(GuntherIPEP.jdt) SETJDT"
& Chr(10) & "(IPEP.dbm) STARTDBM"
With ActiveCell.Characters(Start:=1, Length:=91).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
Does anyone have any suggestions of how to remove the commas delimiters and
the "" shown in the above that I can incorporate into the macro?