I need to get a tab separated data in rtf or doc file to Access or Excel or
just be able to process it in vb code.

The problem worsens as some of the data is in Russian and some rows contain
totals and I will compute my own totals so these totals should be ignored.

Ideally it should be done using vb code in vb application. User opens the
file and application evaluates and transfers data. But I will be thankful
for any method to get the data to Access or Excel, including using macros or
manually resaving the file in some compatible format.

Thanks in advance.

 Denis.

It sounds like you want to put data (that is tab separated) into Access or
Excel. You mentioned that you would be happy with "manually resaving the
file in some compatible format". You can save the file with as a text only
(.txt extension) file; you will lose any formatting and some of your special
characters might be changed or deleted. Then, in Excel, you can simply open
the file. In Access, you can import the data into a table.

HTH

Also, I don't know whether the following is relevant?
http://www.mvps.org/word/FAQs/TblsFldsFms/WordToAccess.htm

Regards

Dave

| Hello,
|
| I need to get a tab separated data in rtf or doc file to Access or Excel
or
| just be able to process it in vb code.
|
| The problem worsens as some of the data is in Russian and some rows
contain
| totals and I will compute my own totals so these totals should be ignored.
|
| Ideally it should be done using vb code in vb application. User opens the
| file and application evaluates and transfers data. But I will be thankful
| for any method to get the data to Access or Excel, including using macros
or
| manually resaving the file in some compatible format.
|
| Thanks in advance.
|
|  Denis.
|
|
|

Thanks for the reply.

Unfortunately this approach won't work as some of the text is in Russian and
in txt file it will get screwed up.

That approach almost worked, the only thing is when I paste the data to
excel it autoformats some data. For example I had 4-5, Excel converted it to
5-Apr. How do I stop that?

Thanks,
 Denis.

Format the cells as text:

Regards

Dave

| Hi Dave,
|
| That approach almost worked, the only thing is when I paste the data to
| excel it autoformats some data. For example I had 4-5, Excel converted it
to
| 5-Apr. How do I stop that?
|
| Thanks,
|  Denis.
|


| > Hi Denis
| >
| > Also, I don't know whether the following is relevant?
| > http://www.mvps.org/word/FAQs/TblsFldsFms/WordToAccess.htm
| >
| > Regards
| >
| > Dave
| >
| >


| > | Hello,
| > |
| > | I need to get a tab separated data in rtf or doc file to Access or
Excel
| > or
| > | just be able to process it in vb code.
| > |
| > | The problem worsens as some of the data is in Russian and some rows
| > contain
| > | totals and I will compute my own totals so these totals should be
| ignored.
| > |
| > | Ideally it should be done using vb code in vb application. User opens
| the
| > | file and application evaluates and transfers data. But I will be
| thankful
| > | for any method to get the data to Access or Excel, including using
| macros
| > or
| > | manually resaving the file in some compatible format.
| > |
| > | Thanks in advance.
| > |
| > |  Denis.
| > |
| > |
| > |
| >
| >
|
|

I tried to format the cells as text before pasting, has no effect, when I
paste 4-5, Excel reformats the cell as Date and enters 5-Apr .
Formatting the cells to text after pasting will just convert 5-Apr to some
number (not sure but it looks like number of days since the 1900s).

Denis

Paste special into Excel as text.

ActiveSheet.PasteSpecial Format:="Text"

Regards

Dave

| Hello,
|
| I tried to format the cells as text before pasting, has no effect, when I
| paste 4-5, Excel reformats the cell as Date and enters 5-Apr .
| Formatting the cells to text after pasting will just convert 5-Apr to some
| number (not sure but it looks like number of days since the 1900s).
|
| Denis
|


| > He Denis
| >
| > Format the cells as text:
| >

| >
| > Regards
| >
| > Dave
| >
| >


| > | Hi Dave,
| > |
| > | That approach almost worked, the only thing is when I paste the data
to
| > | excel it autoformats some data. For example I had 4-5, Excel converted
| it
| > to
| > | 5-Apr. How do I stop that?
| > |
| > | Thanks,
| > |  Denis.
| > |


| > | > Hi Denis
| > | >
| > | > Also, I don't know whether the following is relevant?
| > | > http://www.mvps.org/word/FAQs/TblsFldsFms/WordToAccess.htm
| > | >
| > | > Regards
| > | >
| > | > Dave
| > | >
| > | >


| > | > | Hello,
| > | > |
| > | > | I need to get a tab separated data in rtf or doc file to Access or
| > Excel
| > | > or
| > | > | just be able to process it in vb code.
| > | > |
| > | > | The problem worsens as some of the data is in Russian and some
rows
| > | > contain
| > | > | totals and I will compute my own totals so these totals should be
| > | ignored.
| > | > |
| > | > | Ideally it should be done using vb code in vb application. User
| opens
| > | the
| > | > | file and application evaluates and transfers data. But I will be
| > | thankful
| > | > | for any method to get the data to Access or Excel, including using
| > | macros
| > | > or
| > | > | manually resaving the file in some compatible format.
| > | > |
| > | > | Thanks in advance.
| > | > |
| > | > |  Denis.
| > | > |
| > | > |
| > | > |
| > | >
| > | >
| > |
| > |
| >
| >
|
|

Nope,  tried it, doesn't work, when pasted something like 3-2, damn thing
still reformats it as a Date.

Heres the code I use, maybe I am doing something wrong?

Dim myBook As Excel.Workbook

    Set myBook = Workbooks.Open(FileName:="Test_Paste.xls")

    myBook.ActiveSheet.PasteSpecial Format:="Text"

    myBook.Close
    Set myBook = Nothing

-------------

Denis.

Use:

Dim myBook As Excel.Workbook
Set myBook = Workbooks.Open(Filename:="Test_Paste.xls")

myBook.ActiveSheet.PasteSpecial Format:="Text"

If you have more Excel-specif queries you'd be better off posting them at:

Regards

Dave

| Hi Dave,
|
| Nope,  tried it, doesn't work, when pasted something like 3-2, damn thing
| still reformats it as a Date.
|
| Heres the code I use, maybe I am doing something wrong?
|
| Dim myBook As Excel.Workbook
|
|     Set myBook = Workbooks.Open(FileName:="Test_Paste.xls")
|
|     myBook.ActiveSheet.PasteSpecial Format:="Text"
|
|     myBook.Close
|     Set myBook = Nothing
|
| -------------
|
| Denis.
|


| > Hi Denis
| >
| > Paste special into Excel as text.
| >
| > ActiveSheet.PasteSpecial Format:="Text"
| >
| > Regards
| >
| > Dave
| >
| >


| > | Hello,
| > |
| > | I tried to format the cells as text before pasting, has no effect, when
| I
| > | paste 4-5, Excel reformats the cell as Date and enters 5-Apr .
| > | Formatting the cells to text after pasting will just convert 5-Apr to
| some
| > | number (not sure but it looks like number of days since the 1900s).
| > |
| > | Denis
| > |


| > | > He Denis
| > | >
| > | > Format the cells as text:
| > | >

| > | >
| > | > Regards
| > | >
| > | > Dave
| > | >
| > | >


| > | > | Hi Dave,
| > | > |
| > | > | That approach almost worked, the only thing is when I paste the data
| > to
| > | > | excel it autoformats some data. For example I had 4-5, Excel
| converted
| > | it
| > | > to
| > | > | 5-Apr. How do I stop that?
| > | > |
| > | > | Thanks,
| > | > |  Denis.
| > | > |


| > | > | > Hi Denis
| > | > | >
| > | > | > Also, I don't know whether the following is relevant?
| > | > | > http://www.mvps.org/word/FAQs/TblsFldsFms/WordToAccess.htm
| > | > | >
| > | > | > Regards
| > | > | >
| > | > | > Dave
| > | > | >
| > | > | >


| > | > | > | Hello,
| > | > | > |
| > | > | > | I need to get a tab separated data in rtf or doc file to Access
| or
| > | > Excel
| > | > | > or
| > | > | > | just be able to process it in vb code.
| > | > | > |
| > | > | > | The problem worsens as some of the data is in Russian and some
| > rows
| > | > | > contain
| > | > | > | totals and I will compute my own totals so these totals should
| be
| > | > | ignored.
| > | > | > |
| > | > | > | Ideally it should be done using vb code in vb application. User
| > | opens
| > | > | the
| > | > | > | file and application evaluates and transfers data. But I will be
| > | > | thankful
| > | > | > | for any method to get the data to Access or Excel, including
| using
| > | > | macros
| > | > | > or
| > | > | > | manually resaving the file in some compatible format.
| > | > | > |
| > | > | > | Thanks in advance.
| > | > | > |
| > | > | > |  Denis.
| > | > | > |
| > | > | > |
| > | > | > |
| > | > | >
| > | > | >
| > | > |
| > | > |
| > | >
| > | >
| > |
| > |
| >
| >
|
|

This is my second attempt at posting this - hope it gets through this time!

Use:

Dim myBook As Excel.Workbook
Set myBook = Workbooks.Open(Filename:="Test_Paste.xls")

myBook.ActiveSheet.PasteSpecial Format:="Text"

If you have more Excel-specif queries you'd be better off posting them at:

Regards

Dave

Hi Dave,

Nope,  tried it, doesn't work, when pasted something like 3-2, damn thing
still reformats it as a Date.

Heres the code I use, maybe I am doing something wrong?

Dim myBook As Excel.Workbook

    Set myBook = Workbooks.Open(FileName:="Test_Paste.xls")

    myBook.ActiveSheet.PasteSpecial Format:="Text"

    myBook.Close
    Set myBook = Nothing

-------------

Denis.

I cant believe it, but It worked! Thanks a lot!

Denis.