So I've attached a sample workbook as well as the sample file (except please change the extension of the .txt file to a .bdf for this purpose) with the userform....when I run it I get a "compile error: expected function or variable" at the OpenText. I'm not sure I understand, I thought I set it up the correct way in my code...
Any help would be appreciated.
Last edited by sperry2565; 09-24-2013 at 04:09 PM. Reason: Uploaded edited xlsm
opentext doesn't return anything so you need to use
Application.Workbooks.OpenText Filename:=strFileB, Origin:=437, StartRow:=1, _ DataType:=1, TextQualifier:=xlNone, ConsecutiveDelimiter:=True, _ Tab:=True, Semicolon:=False, Comma:=False, Space:=True, Other:=False, _ FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True Set tsiB = Activeworkbook
Josie
if at first you don't succeed try doing it the way your wife told you to
That's kind of weird....is it because it's not a text file that I want to open?
no-the opentext method simply doesn't return a workbook object reference. it doesn't matter what kind of file you open with it
Well I asked because I copied that code practically ver batim from a macro I recorded and it worked. And it worked before in previous code for me while using a CreateScriptingObject. Thanks though.
I reckon that's the key phrase ;-) a macro would never attempt to use a variable thereOriginally Posted by sperry2565
Sub Macro1() ' ' Macro1 Macro ' ' ChDir "C:\Users\jk514d\Desktop" Workbooks.OpenText Filename:="C:\Users\jk514d\Desktop\temp1.bdf", Origin:= _ 437, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _ Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _ , 1), Array(4, 1)), TrailingMinusNumbers:=True End Sub
Just so we're clear, that was the marcro, the only thing I changed was the way it gets the path to the file....
no-you tried to assign the result of Opentext to a variable, which doesn't work because there is no result. the macro does not try to do that-it's just
and notworkbooks.opentext...
set tsiB = Workbooks.opentext(...)
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks