Open Command

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Ok not sure if I'm in the right place or not.
Excel Programming?

I am building a Macro using (Application.Dialogs(xlDialogOpen).Show)
However what I cannot get it to do is Default to File Type *.csv
IE: When Open box Shows I want it to list All *.csv straight off, instead of
having to select it from File type!
Any Help would be much appreciated!

Thanks
 
Si, try this,
Application.GetOpenFilename ("text files, *.csv")


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003
 
Yip that worked.
But it seems my problem continues.
In my original Macro I specified the file to open, a *.csv which opened the
file which had selectable cells. Then I select the *.csv cells and had them
CopyPaste into my WorkBook .xls Worked fine when file was specified. But now
with the Open command it Runs and I can see it selecting the area but nothing
appears or is pasted???
Any ideas?
Have not Included top half of Macro this is the starting line.


ChDir "C:\Folder"
Application.GetOpenFilename ("text files, *.csv")
Range("A1:AH19").Select
Selection.Copy
Windows("Workbook.xls").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("A1").Select
End Sub

The extra is putting the lines back after paste happened
 
Hi Si,

I think the reason is that Excel never actually opens the .csv file in your
macro. Try changing the following:

Dim varCSVfilename As String
ChDir "C:\Folder"
Application.GetOpenFilename ("text files, *.csv")
Click to expand...
Workbooks.open varCSVfilename

Hope it helps
 
Back
Top