Вот очень конкретный пример, который вы можете адаптировать к вашим потребностям. Это макрос события рабочего листа, который запускается двойным щелчком по ячейке B9 :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B9")) Is Nothing Then Exit Sub
Cancel = True
Dim TextLine As String
Close #1
Open "C:\TestFolder\test.txt" For Input As #1
i = 1
j = 0
Do While Not EOF(1)
Line Input #1, TextLine
j = j + 1
Cells(i, j) = TextLine
Loop
Close #1
End Sub
Изменения, которые вы должны будете сделать:
- ячейка для двойного щелчка B9
- спецификация открываемого текстового файла
- место назначения для импортированных данных
Поскольку это код рабочего листа, его очень легко установить и использовать автоматически:
- щелкните правой кнопкой мыши имя вкладки в нижней части окна Excel
- выберите View Code - откроется окно VBE
- вставьте материал и закройте окно VBE
Если у вас есть какие-либо проблемы, сначала попробуйте на пробную версию.
Если вы сохраните книгу, макрос будет сохранен вместе с ней. Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx
Чтобы удалить макрос:
- вызвать окна VBE, как указано выше
- очистить код
- закройте окно VBE
Чтобы узнать больше о макросах в целом, смотрите:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
а также
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
Чтобы узнать больше о макросах событий (код листа), см .:
http://www.mvps.org/dmcritchie/excel/event.htm
Макросы должны быть включены, чтобы это работало!