Opening a text file with a macro?

[jisoo22]

Hello people!

Can someone tell me how I can open a text file, read a single small string of text and stick it into a cell with a macro within Excel? I'm told there's a function called "GetFileName()" or something like that. Can anyone tell me what the correct function is? For that matter, what function or statement I need to read the string of text?

Thanks,
Jisoo22

 

[JohnYingling]

Record a macro while you are doing it manually, stop after you are done then look at the generated macro code. Let Excel show you.

http://WWW.VBCompare.Com

 

[CookieMonster]

Reading and writing text from and to txt files is easy, the following code will do so:

Function Infile_ReadText() as String
Dim strFile as string
Dim strText as string
Dim strOutPut as string

strFile="C:\Temp\Textfilename.txt"

open strFile for Input as #1
While not EOf(1)
Input #1,strText
strOutPut=strOutPut & strText
Wend
Close #1
Infile_REadText=strOutPut
End function

Sub Paste_InCell
Dim strToPaste as string

strToPaste=Infile_ReadText
ActiveWorkbook.Worksheets("Sheet1&quot.Cells("A1&quot.Value=strToPaste

End sub

Writing to a textfile uses the same syntax, replace Open for 'Input' with 'OutPut' and instead of Input #1, use Write #1.

Have Fun!
CookieMonster