Bjorn,

Sorry, sloppy copy and paste work. That last parameter should read:

OtherChar:="*"

Note the ending double quote mark.

HTH,
Bernie
MS Excel MVP


"Bernie Deitrick" <deitbe @ consumer dot org> wrote in message news:...
> Bjorn,
>
> Workbooks.OpenText _
> Filename:=Application.GetOpenFilename, _
> DataType:=xlDelimited, _
> ConsecutiveDelimiter:=False, _
> Comma:=False, Other:=True, OtherChar:="*
>
> HTH,
> Bernie
> MS Excel MVP
>
>
> "bjorn007" <bjorn007.1tggiw_1123520903.2203@excelforum-nospam.com> wrote in message
> news:bjorn007.1tggiw_1123520903.2203@excelforum-nospam.com...
>>
>> Hello!
>> Thanks for the help. It worked really good, but I have a small question
>> more.
>> I can not use Comma (,) as the delimiter (because some of the data that
>> will be copied into the text file contains comma). So I change it to *.
>> So far so good!
>> But when I would like to upload, I get some problems when the data
>> contains commas. Everything get misplaced. I tried to change
>> Comma:=True to for example Star:=True or SemiColumn:=True, but it
>> doesn't work. Do you have any suggestions how to fix it?
>>
>> And I am really thankful for your help, I would never managed this by
>> myself. THANK YOU!
>>
>> Bjorn
>>
>> Here's the code:
>>
>> Code 1
>> myName = ActiveWorkbook.FullName
>> FName = Application.GetSaveAsFilename( _
>> Replace(myName, ".xls", ".txt"))
>> On Error GoTo EndMacro:
>> FNum = FreeFile
>> Open FName For Output Access Write As #FNum
>> Set myRange = Worksheets("database").Range("A6:CL6")
>> WholeLine = ""
>> For Each myCell In myRange
>> WholeLine = WholeLine & myCell.Text & "* " 'Changed to *
>> Next myCell
>>
>> WholeLine = Left(WholeLine, Len(WholeLine) - 1)
>>
>> Print #FNum, Trim(WholeLine)
>>
>>
>> Code 2
>> Dim myBook As Workbook
>> Workbooks.OpenText _
>> Filename:=Application.GetOpenFilename, _
>> DataType:=xlDelimited, _
>> ConsecutiveDelimiter:=False, _
>> *Comma*:=True ''Here's my problem!!!
>> Set myBook = ActiveWorkbook
>> Range("A1").CurrentRegion.Copy
>> ThisWorkbook.Worksheets("Database").Range("A6").PasteSpecial _
>> Paste:=xlPasteValues
>> myBook.Close False
>>
>>
>> --
>> bjorn007
>> ------------------------------------------------------------------------
>> bjorn007's Profile: http://www.excelforum.com/member.php...o&userid=25959
>> View this thread: http://www.excelforum.com/showthread...hreadid=393281
>>
>
>