Excel VBA import .bas file starting in particular director help...

[Eveck]

Alright the code I have is:

Private Sub Autpen()
Application.DisplayAlerts = False
FileToOpen = Application.GetOpenFilename _
(Title:="Please choose prior provider's text file to import", _
FileFilter:="Text Files *.txt (*.txt),")
''
If FileToOpen = False Then
MsgBox "No file specified.", vbExclamation, "No File!!!"
Exit Sub
Else
Workbooks.Open fiLename:=FileToOpen
End If
Set SourceBook = ActiveWorkbook
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Eric Parsing.xlsm").Activate
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
SourceBook.Close False
fiLename = Application.GetOpenFilename("Bas FIle(*bas),*bas", 1)
Application.VBE.ActiveVBProject.VBComponents.Import (fiLename)
Run "Macrox"
End Sub


Everything works fine... At the end when I am importing the .bas file I just want to have it start searching in directory "T:\Data\MacroP". Right now it just starts at my desktop. Any help??? THANK YOU!!!!!

 

[tlowry]

try:

ChDir "T:\Data\MacroP"

before GetOpenFileName

 

[Eveck]

That will work at the beginning of the code but when after I select the appropriate file in my first text import regardless if I have the chdir in before importing the .bas file the directory sticks to where I imported my text from.

 

[tlowry]

Did you do a ChDir before each "GetOpenFilename" ?

 

[Eveck]

Yeah here was the first attempt and it didn't result into a debug but ignored the command to change directory:

ChDir "T:\Data\MacroP"
fiLename = Application.GetOpenFilename("Bas FIle(*bas),*bas", 1)
Application.VBE.ActiveVBProject.VBComponents.Import (fiLename)

The second attempt I tried placing it into the code directly before getopenfilename:

fiLename = Application.ChDir "T:\Data\MacroP".GetOpenFilename("Bas FIle(*bas),*bas", 1)
Application.VBE.ActiveVBProject.VBComponents.Import (fiLename)

That gives me a Compile Error Expected: End of Statement or a Compile Error Syntax Error.

 

[tlowry]

Are the two paths on different drives?

Maybe something like:

ChDrive "c"
ChDir "c:\temp"
sFile = Application.GetOpenFilename("PDF Files (*.pdf), *.pdf")

 

[Eveck]

I was able to get it to work the way I wanted. I changed the import sequence to import the .bas file first and had the directory changed at the beginning so it went to the folder where I had stored all my .bas files. Having the directory set for the .txt import wasn't a priority. Thanks for all your help!