Sub importnotepad()
On Error GoTo errhl
Dim notepadfile
notepadfile = Application.GetOpenFilename("Text Files (*.txt),*.txt", , "Please select text file...")
Workbooks.OpenText FileName:=notepadfile, Origin:=xlWindows, StartRow:=1
With ActiveWorkbook
ActiveSheet.Move After:=.Worksheets(.Worksheets.Count)
End With
errhl:
Exit Sub
End Sub
Subscribe to:
Post Comments (Atom)
Import data from SQL
Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...
-
If you want to add a new pop up button on mouse right click menu and as soon as you click on it . It shows you multiple buttons with macro a...
-
If you have added the shape in the sheet and now you want to change it color , text , font size ,etc using VBA. Snapshot below Code- Su...
No comments:
Post a Comment