Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Accessing workbook after .OpenText
Hi all, I have the following code in an Excel document: Code ------------------- Dim name Dim fullname name = Dir(ActiveWorkbook.Path & "\*.csv") While name < "" fullname = ActiveWorkbook.Path & "\" & name MsgBox fullname Workbooks.OpenText _ Filename:=fullname, _ DataType:=xlDelimited, _ comma:=True ' Some code to go here.... name = Dir Wen ------------------- Ok, the problem I have at the moment is that I need to open this cs file, which is performed fine above into a new workbook. However how d I then get a 'pointer' to that workbook. I need to be able to perfor operations on the opened .csv file, and my original workbook, (the on with the macro in it), and then copy data out of the .csv file into th original workbook. I'm guessing it would be something like: with Workbooks(2).Worksheets(1).... etc, but I don't know how to mak sure I am talking about the right workbook. Any ideas? Thanks, Phi -- Phil_ ----------------------------------------------------------------------- Phil_V's Profile: http://www.excelforum.com/member.php...fo&userid=3185 View this thread: http://www.excelforum.com/showthread.php?threadid=52314 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Accessing workbook after .OpenText
You have the name of the workbook in Name
Dim name Dim fullname Dim bk as Workbook name = Dir(ActiveWorkbook.Path & "\*.csv") While name < "" fullname = ActiveWorkbook.Path & "\" & name MsgBox fullname Workbooks.OpenText _ Filename:=fullname, _ DataType:=xlDelimited, _ comma:=True set bk = workbooks(name) ' now use bk to refer to the workbook ' Some code to go here.... name = Dir Wend -- Regards, Tom Ogilvy "Phil_V" wrote: Hi all, I have the following code in an Excel document: Code: -------------------- Dim name Dim fullname name = Dir(ActiveWorkbook.Path & "\*.csv") While name < "" fullname = ActiveWorkbook.Path & "\" & name MsgBox fullname Workbooks.OpenText _ Filename:=fullname, _ DataType:=xlDelimited, _ comma:=True ' Some code to go here.... name = Dir Wend -------------------- Ok, the problem I have at the moment is that I need to open this csv file, which is performed fine above into a new workbook. However how do I then get a 'pointer' to that workbook. I need to be able to perform operations on the opened .csv file, and my original workbook, (the one with the macro in it), and then copy data out of the .csv file into the original workbook. I'm guessing it would be something like: with Workbooks(2).Worksheets(1).... etc, but I don't know how to make sure I am talking about the right workbook. Any ideas? Thanks, Phil -- Phil_V ------------------------------------------------------------------------ Phil_V's Profile: http://www.excelforum.com/member.php...o&userid=31857 View this thread: http://www.excelforum.com/showthread...hreadid=523144 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
opentext method of excel workbook object | Excel Programming | |||
OpenText Method of Workbook Object Question | Excel Programming | |||
Accessing workbook info from a different workbook macro | Excel Programming | |||
Accessing workbook info from a different workbook macro | Excel Programming | |||
After OpenText all pastes from external apps use format from OpenText | Excel Programming |