Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro / VBA help 4-5-12
I created this Macro, but want to make a change but dont know how..
Hopefully someone can offer assitance. Question1. Instead of it looking for the file 1.csv, I want to look for all .CSV files on my desktop, and allow me to choose the one to import --------------------------------------------------------------------------------------------------- Sub Macro3() ' ' Macro3 Macro ' Macro recorded 4/5/2012 ' Keyboard Shortcut: Ctrl+d ' With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Documents and Settings\my.computer\Desktop\1.csv", Destination _ :=Range("A1")) .Name = "1" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 437 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub ------------------------------------------------------------------------------------------ Thankss.. --------------= Posted using GrabIt =---------------- ------= Binary Usenet downloading made easy =--------- -= Get GrabIt for free from http://www.shemes.com/ =- |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro / VBA help 4-5-12
On Thursday, April 5, 2012 11:59:29 AM UTC-5, Me wrote:
I created this Macro, but want to make a change but dont know how.. Hopefully someone can offer assitance. Question1. Instead of it looking for the file 1.csv, I want to look for all .CSV files on my desktop, and allow me to choose the one to import --------------------------------------------------------------------------------------------------- Sub Macro3() ' ' Macro3 Macro ' Macro recorded 4/5/2012 ' Keyboard Shortcut: Ctrl+d ' With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Documents and Settings\my.computer\Desktop\1.csv", Destination _ :=Range("A1")) .Name = "1" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 437 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub ------------------------------------------------------------------------------------------ Thankss.. --------------= Posted using GrabIt =---------------- ------= Binary Usenet downloading made easy =--------- -= Get GrabIt for free from http://www.shemes.com/ =- This should prove useful Sub UseFileDialogOpen() Dim lngCount As Long ' Open the file dialog With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Show ' Display paths of each file selected For lngCount = 1 To .SelectedItems.Count MsgBox .SelectedItems(lngCount) Next lngCount End With End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro recorded... tabs & file names changed, macro hangs | Excel Worksheet Functions | |||
AutoRun Macro with a delay to give user the choice to cancel the macro | Excel Programming | |||
Macro Help Needed - Excel 2007 - Print Macro with Auto Sort | Excel Worksheet Functions | |||
macro to delete entire rows when column A is blank ...a quick macro | Excel Programming | |||
Start Macro / Stop Macro / Restart Macro | Excel Programming |