Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set Default Directory
I sent this earlier, but without a subject, and the news group appears to require a subject,
so I'm sending it again.... -------------------------------------- I have the following two statements (among others, of course): TheFileName = Application.GetOpenFilename("Text Files (*.txt), *.txt") Workbooks.OpenText Filename:=TheFileName, Origin:=xlWindows, _ StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=myArray I would like the default directory to begin looking in to be C:\ I have tried the following with no success: TheFileName = Application.GetOpenFilename("Text Files (*.txt), C:\.txt") Thanks, Bernie |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set Default Directory
I posted this:
Try this I will save your default folder first to set it back at the end Sub test() Dim SaveDriveDir As String Dim TheFileName As Variant SaveDriveDir = CurDir ChDrive "C" ChDir "C:\" TheFileName = Application.GetOpenFilename("Text Files (*.txt), C:\.txt") MsgBox "your code" ChDrive SaveDriveDir ChDir SaveDriveDir End Sub -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "bw" wrote in message ... I sent this earlier, but without a subject, and the news group appears to require a subject, so I'm sending it again.... -------------------------------------- I have the following two statements (among others, of course): TheFileName = Application.GetOpenFilename("Text Files (*.txt), *.txt") Workbooks.OpenText Filename:=TheFileName, Origin:=xlWindows, _ StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=myArray I would like the default directory to begin looking in to be C:\ I have tried the following with no success: TheFileName = Application.GetOpenFilename("Text Files (*.txt), C:\.txt") Thanks, Bernie |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set Default Directory
Hi Bernie
This should do the trick for you: ChDrive "C" ChDir "C:\" TheFileName = Application.GetOpenFilename("Text Files (*.txt), *.txt") -- Rob Bovey, MCSE, MCSD, Excel MVP Application Professionals http://www.appspro.com/ * Please post all replies to this newsgroup * * I delete all unsolicited e-mail responses * "bw" wrote in message ... I sent this earlier, but without a subject, and the news group appears to require a subject, so I'm sending it again.... -------------------------------------- I have the following two statements (among others, of course): TheFileName = Application.GetOpenFilename("Text Files (*.txt), *.txt") Workbooks.OpenText Filename:=TheFileName, Origin:=xlWindows, _ StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=myArray I would like the default directory to begin looking in to be C:\ I have tried the following with no success: TheFileName = Application.GetOpenFilename("Text Files (*.txt), C:\.txt") Thanks, Bernie |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set Default Directory
I didn't see your other post...I wonder why?
The Subject is NONE -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "bw" wrote in message ... Thanks, Ron. That did it for me. I didn't see your other post...I wonder why? Anyway, thanks for your help. Bernie On Wed, 30 Jul 2003 18:46:52 +0200, "Ron de Bruin" wrote: I posted this: Try this I will save your default folder first to set it back at the end Sub test() Dim SaveDriveDir As String Dim TheFileName As Variant SaveDriveDir = CurDir ChDrive "C" ChDir "C:\" TheFileName = Application.GetOpenFilename("Text Files (*.txt), C:\.txt") MsgBox "your code" ChDrive SaveDriveDir ChDir SaveDriveDir End Sub -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "bw" wrote in message news:1104_1059581509 @news.cableone.net... I sent this earlier, but without a subject, and the news group appears to require a subject, so I'm sending it again.... -------------------------------------- I have the following two statements (among others, of course): TheFileName = Application.GetOpenFilename("Text Files (*.txt), *.txt") Workbooks.OpenText Filename:=TheFileName, Origin:=xlWindows, _ StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=myArray I would like the default directory to begin looking in to be C:\ I have tried the following with no success: TheFileName = Application.GetOpenFilename("Text Files (*.txt), C:\.txt") Thanks, Bernie |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set Default Directory
bw,
Know what you mean. For some reason I'm not seeing all the posts either. But using Find is a big help. You can even have it search by sender. steve "bw" wrote in message ... Thanks, Ron. That did it for me. I didn't see your other post...I wonder why? Anyway, thanks for your help. Bernie On Wed, 30 Jul 2003 18:46:52 +0200, "Ron de Bruin" wrote: I posted this: Try this I will save your default folder first to set it back at the end Sub test() Dim SaveDriveDir As String Dim TheFileName As Variant SaveDriveDir = CurDir ChDrive "C" ChDir "C:\" TheFileName = Application.GetOpenFilename("Text Files (*.txt), C:\.txt") MsgBox "your code" ChDrive SaveDriveDir ChDir SaveDriveDir End Sub -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "bw" wrote in message news:1104_1059581509 @news.cableone.net... I sent this earlier, but without a subject, and the news group appears to require a subject, so I'm sending it again.... -------------------------------------- I have the following two statements (among others, of course): TheFileName = Application.GetOpenFilename("Text Files (*.txt), *.txt") Workbooks.OpenText Filename:=TheFileName, Origin:=xlWindows, _ StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=myArray I would like the default directory to begin looking in to be C:\ I have tried the following with no success: TheFileName = Application.GetOpenFilename("Text Files (*.txt), C:\.txt") Thanks, Bernie |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
change directory to list default | Excel Discussion (Misc queries) | |||
set default directory for saving files | Excel Discussion (Misc queries) | |||
MSOffice default directory | Setting up and Configuration of Excel | |||
Open to default directory in Excel | Excel Discussion (Misc queries) | |||
where is the default directory of excel macros ? | Excel Discussion (Misc queries) |