Как написать приложение Visual Basic (Excel), которое записывает текст из двух ячеек в новый текстовый файл?
Как написать приложение Visual Basic (Excel), которое записывает текст из двух ячеек в новый текстовый файл при нажатии кнопки? Я очень мало знаю, если вообще что-либо знаю о Visual Basic, и еще меньше о приложениях Visual Basic. Все онлайн-ресурсы подвели меня, потому что либо они не работают так, как я предполагал, либо не работают вообще, выдавая мне ошибки, которые я не знаю, как решить.
Ответы 2
Этот макрос сделать это. Просто выберите, какие ячейки вы хотите записать в файл, и запустите его.
Sub Makro1()
'
' Makro1 Makro
'
'
Dim myFile As String, rng As Range, cellValue As Variant, i As Integer, j As Integer
myFile = Application.DefaultFilePath & "\text_file.txt"
Set rng = Selection
Open myFile For Output As #1
For i = 1 To rng.Rows.Count
For j = 1 To rng.Columns.Count
cellValue = rng.Cells(i, j).Value
If j = rng.Columns.Count Then
Write #1, cellValue
Else
Write #1, cellValue,
End If
Next j
Next i
Close #1
End Sub
Файл text_file.txt сохраняется на месте, где сохранен файл Excel.
Есть ли способ сделать это на двух фиксированных ячейках вместо того, чтобы выбирать их каждый раз?
Кроме того, файл не сохраняется в том же месте, что и файл Excel, но это незначительная проблема.
Sub Makro1()
'
' Makro1 Makro
'
'
Dim myFile As String, rng As Range, cellValue As Variant, i As Integer, j As Integer
myFile = Application.DefaultFilePath & "\text_file.txt"
Set rng = Selection
Open myFile For Output As #1
cellValue = Range("A1").Value
Write #1, cellValue
cellValue = Range("B1").Value
Write #1, cellValue
Close #1
End Sub
Спасибо, но как мне остановить перезапись предыдущих данных и просто добавить их в новую строку?
В строке Open myFile For Output As #1 измените Output на Append
Спасибо, я думаю, что я могу решить другие проблемы сам
Отлично, так что вы можете отметить этот ответ как правильный? Место сохранения txt определяется в \text_file.txt. Вы можете использовать \path\to\folder\text_file.txt
Спасибо :-). Удачного кодирования.