How can I store a value in a text file from (1) a cell reference (2) a text
box on a form?

Thanks in advance for your help
--
AJM1949

Look the Open Statement in the help.

NickHK

"AJM1949" wrote in message
...
How can I store a value in a text file from (1) a cell reference (2) a
text
box on a form?

Thanks in advance for your help
--
AJM1949

(1)


Sub SaveCellToTXT()

Set fso = CreateObject _
("Scripting.FileSystemObject")

Set txtFile = fso.CreateTextFile _
("C:\test1.txt", True)

txtFile.WriteLine _
ActiveWorkbook.Sheets(1).Cells(1, 1)

txtFile.Close

End Sub

(2)

Sub SaveTextBoxToTXT()

Set fso = CreateObject _
("Scripting.FileSystemObject")

Set txtFile = fso.CreateTextFile _
("C:\test2.txt", True)

'UserForm1.TextBox1.Value = "test"

txtFile.WriteLine _
UserForm1.TextBox1.Value

txtFile.Close


End Sub

Hope that helps.

--
urkec


"AJM1949" wrote:

How can I store a value in a text file from (1) a cell reference (2) a text
box on a form?

Thanks in advance for your help
--
AJM1949

Thanks very much. That seems to work fine.
I also need some help to read these stored values back into a cell.
Can you help with this
--
AJM1949


"urkec" wrote:

(1)


Sub SaveCellToTXT()

Set fso = CreateObject _
("Scripting.FileSystemObject")

Set txtFile = fso.CreateTextFile _
("C:\test1.txt", True)

txtFile.WriteLine _
ActiveWorkbook.Sheets(1).Cells(1, 1)

txtFile.Close

End Sub

(2)

Sub SaveTextBoxToTXT()

Set fso = CreateObject _
("Scripting.FileSystemObject")

Set txtFile = fso.CreateTextFile _
("C:\test2.txt", True)

'UserForm1.TextBox1.Value = "test"

txtFile.WriteLine _
UserForm1.TextBox1.Value

txtFile.Close


End Sub

Hope that helps.

--
urkec


"AJM1949" wrote:

How can I store a value in a text file from (1) a cell reference (2) a text
box on a form?

Thanks in advance for your help
--
AJM1949

Sub LoadTXTToCell(filePath As String)

ForReading = 1

Set fso = CreateObject _
("Scripting.FileSystemObject")

If fso.FileExists(filePath) Then
Set txtFile = fso.OpenTextFile _
(filePath, ForReading)
Else
Exit Sub
End If

ActiveWorkbook.Sheets(1).Cells(1, 1) = _
txtFile.ReadLine
'or
'txtFile.ReadAll

txtFile.Close

End Sub

--
urkec


"AJM1949" wrote:

Thanks very much. That seems to work fine.
I also need some help to read these stored values back into a cell.
Can you help with this
--
AJM1949


"urkec" wrote:

(1)


Sub SaveCellToTXT()

Set fso = CreateObject _
("Scripting.FileSystemObject")

Set txtFile = fso.CreateTextFile _
("C:\test1.txt", True)

txtFile.WriteLine _
ActiveWorkbook.Sheets(1).Cells(1, 1)

txtFile.Close

End Sub

(2)

Sub SaveTextBoxToTXT()

Set fso = CreateObject _
("Scripting.FileSystemObject")

Set txtFile = fso.CreateTextFile _
("C:\test2.txt", True)

'UserForm1.TextBox1.Value = "test"

txtFile.WriteLine _
UserForm1.TextBox1.Value

txtFile.Close


End Sub

Hope that helps.

--
urkec


"AJM1949" wrote:

How can I store a value in a text file from (1) a cell reference (2) a text
box on a form?

Thanks in advance for your help
--
AJM1949

Hi

Thanks for the code. I seem to be missing something. I am trying to save
ithe text file value to a named range but can't seem to make it work. I am
still learning and appreciate the help given

--
AJM1949


"urkec" wrote:

Sub LoadTXTToCell(filePath As String)

ForReading = 1

Set fso = CreateObject _
("Scripting.FileSystemObject")

If fso.FileExists(filePath) Then
Set txtFile = fso.OpenTextFile _
(filePath, ForReading)
Else
Exit Sub
End If

ActiveWorkbook.Sheets(1).Cells(1, 1) = _
txtFile.ReadLine
'or
'txtFile.ReadAll

txtFile.Close

End Sub

--
urkec


"AJM1949" wrote:

Thanks very much. That seems to work fine.
I also need some help to read these stored values back into a cell.
Can you help with this
--
AJM1949


"urkec" wrote:

(1)


Sub SaveCellToTXT()

Set fso = CreateObject _
("Scripting.FileSystemObject")

Set txtFile = fso.CreateTextFile _
("C:\test1.txt", True)

txtFile.WriteLine _
ActiveWorkbook.Sheets(1).Cells(1, 1)

txtFile.Close

End Sub

(2)

Sub SaveTextBoxToTXT()

Set fso = CreateObject _
("Scripting.FileSystemObject")

Set txtFile = fso.CreateTextFile _
("C:\test2.txt", True)

'UserForm1.TextBox1.Value = "test"

txtFile.WriteLine _
UserForm1.TextBox1.Value

txtFile.Close


End Sub

Hope that helps.

--
urkec


"AJM1949" wrote:

How can I store a value in a text file from (1) a cell reference (2) a text
box on a form?

Thanks in advance for your help
--
AJM1949

Are you getting any errors or it just doesn't work?

--
urkec


"AJM1949" wrote:

Hi

Thanks for the code. I seem to be missing something. I am trying to save
ithe text file value to a named range but can't seem to make it work. I am
still learning and appreciate the help given

--
AJM1949


"urkec" wrote:

Sub LoadTXTToCell(filePath As String)

ForReading = 1

Set fso = CreateObject _
("Scripting.FileSystemObject")

If fso.FileExists(filePath) Then
Set txtFile = fso.OpenTextFile _
(filePath, ForReading)
Else
Exit Sub
End If

ActiveWorkbook.Sheets(1).Cells(1, 1) = _
txtFile.ReadLine
'or
'txtFile.ReadAll

txtFile.Close

End Sub

--
urkec


"AJM1949" wrote:

Thanks very much. That seems to work fine.
I also need some help to read these stored values back into a cell.
Can you help with this
--
AJM1949


"urkec" wrote:

(1)


Sub SaveCellToTXT()

Set fso = CreateObject _
("Scripting.FileSystemObject")

Set txtFile = fso.CreateTextFile _
("C:\test1.txt", True)

txtFile.WriteLine _
ActiveWorkbook.Sheets(1).Cells(1, 1)

txtFile.Close

End Sub

(2)

Sub SaveTextBoxToTXT()

Set fso = CreateObject _
("Scripting.FileSystemObject")

Set txtFile = fso.CreateTextFile _
("C:\test2.txt", True)

'UserForm1.TextBox1.Value = "test"

txtFile.WriteLine _
UserForm1.TextBox1.Value

txtFile.Close


End Sub

Hope that helps.

--
urkec


"AJM1949" wrote:

How can I store a value in a text file from (1) a cell reference (2) a text
box on a form?

Thanks in advance for your help
--
AJM1949

Sorry to be a bit slow replying. I got a bit side tracked with another
project. Thanks very much for your assistance. I now have all the code
working fine.
--
AJM1949


"urkec" wrote:

(1)


Sub SaveCellToTXT()

Set fso = CreateObject _
("Scripting.FileSystemObject")

Set txtFile = fso.CreateTextFile _
("C:\test1.txt", True)

txtFile.WriteLine _
ActiveWorkbook.Sheets(1).Cells(1, 1)

txtFile.Close

End Sub

(2)

Sub SaveTextBoxToTXT()

Set fso = CreateObject _
("Scripting.FileSystemObject")

Set txtFile = fso.CreateTextFile _
("C:\test2.txt", True)

'UserForm1.TextBox1.Value = "test"

txtFile.WriteLine _
UserForm1.TextBox1.Value

txtFile.Close


End Sub

Hope that helps.

--
urkec


"AJM1949" wrote:

How can I store a value in a text file from (1) a cell reference (2) a text
box on a form?

Thanks in advance for your help
--
AJM1949