Лист Excel с двумя кнопками для сохранения определенных ячеек как TXT в определенном месте

Question

У меня есть таблица Excel, содержащая данные в ячейках A2, которые мне нужно нажимать на кнопку, и она экспортирует эти данные в текстовый файл на сетевом диске под определенным именем (без расширения).

Затем мне понадобится еще одна кнопка на том же листе, чтобы сохранить ячейки E2 и F2 в том же сетевом расположении, что и отдельное имя файла (без расширения).

У меня есть приведенный ниже код, но он копирует ВСЕ данные на листе в имя файла, когда каждая кнопка должна сохранять данные только из определенных ячеек.Я предполагаю, что это ДИАПАЗОН опция, которую я просто не могу понять.

Private Sub CommandButton1_Click()
Dim path As String
Dim filename1 As String

path = "S:\"
filename1 = "scal0091"
Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:=path & filename1 & ".", FileFormat:=xlText
End Sub

Есть предложения?

Спасибо!

Answer 1

Это должно сделать:

Private Sub CommandButton1_Click()
Dim path As String
Dim filename1 As String

'New Variables:
Dim MyVal as Variant
Dim FileNum as Integer
Dim FSO as Object
Dim MySheet as Sheet


path = "S:\"
filename1 = "scal0091"
Set MySheet = Thisworkbook.Sheets("MySheetName") 'Put Your Sheet Name Here
MyVal = MySheet.range("A2").value 'Your specific cell value
Application.DisplayAlerts = False 'why?

'Create a new text file:
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CreateTextFile path & filename1, False

'Write to Text File
FileNum = FreeFile()
Open path & filename1 for output as #FileNum
    Print #FileNum, MyVal
Close #FileNum

Set FSO = Nothing

End Sub