Macro to open a delimit notepad file in Excel
Sub delimit_txt_file()
Dim fNameAndPath As String
fNameAndPath = Application.GetOpenFilename(FileFilter:="Text Files (*.txt), *.txt", Title:="Select File To Open")
Workbooks.OpenText Filename:=fNameAndPath, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:="!" ' choose ur delimit type here
End Sub
Sub delimit_txt_file()
Dim fNameAndPath As String
fNameAndPath = Application.GetOpenFilename(FileFilter:="Text Files (*.txt), *.txt", Title:="Select File To Open")
Workbooks.OpenText Filename:=fNameAndPath, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:="!" ' choose ur delimit type here
End Sub
You blog is eye-catching. I get pleasure from it. Thanks for sharing this beautiful piece of writing with me.
ReplyDeletedashboard designer
here is a site for easy macro learning http://www.excelmacrobasic.blogspot.in/
ReplyDeleteThis post will talk about how I boiled down the information in the blog to connect my Azure VMs to this Azure File Server.online file storage
ReplyDelete