Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Paste into opened notepad file
May i know how do i continue from my code below in order to allow me to copy sheet3 cells A1:A42 into the opened file? I am able to call notepad to open the .xml file but i need to paste the data from excel into this opened file.Thanks!! Private Sub CommandButton1_Click() Shell "C:\Windows\Notepad.exe 'C:\project\fyp1.xml" End Sub -- oOpsy ------------------------------------------------------------------------ oOpsy's Profile: http://www.excelforum.com/member.php...o&userid=29132 View this thread: http://www.excelforum.com/showthread...hreadid=489798 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Paste into opened notepad file
any kind soul able to help -- oOps ----------------------------------------------------------------------- oOpsy's Profile: http://www.excelforum.com/member.php...fo&userid=2913 View this thread: http://www.excelforum.com/showthread.php?threadid=48979 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Paste into opened notepad file
I don't know how to paste the clipboard contents into another spawned process
as you want. There may be a way to do it, but I would suggest reading about opening/closing/reading/writing to text files in VB help. You don't say where you want to paste the cell contents in the file. Below are two examples. The first one appends the cells to the end of the file. The second one appends each cell to the end of each line of the text file, assuming there is one line for each cell. I did not test these examples, they are simply to give you an idea how to get started. ' Method 1 - append to end of file Dim Cell As Range Open "C:\project\fyp1.xml" For Append As #1 For Each Cell In Sheets("Sheet3").Range("A1:A42") Print #1, Cell.Text Next Cell Close #1 ' Method 2 - append to end of each line of file Dim Rec As String Dim nRec As Long Open "C:\project\fyp1.xml" For Input As #1 Open "C:\project\fyp1_NEW.xml" For Output As #2 Do While Not EOF(1) Line Input #1, Rec nRec = nRec + 1 Print #1, Rec & Sheets("Sheet3").Cells(nRec, 1).Text Loop Close #1 Close #2 "oOpsy" wrote: any kind soul able to help? -- oOpsy ------------------------------------------------------------------------ oOpsy's Profile: http://www.excelforum.com/member.php...o&userid=29132 View this thread: http://www.excelforum.com/showthread...hreadid=489798 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Notepad or .txt file to excel | Excel Worksheet Functions | |||
Copy and Paste Number from Notepad | Excel Discussion (Misc queries) | |||
Writing to notepad file | Excel Discussion (Misc queries) | |||
copy excell file to a CSV file and than to Notepad | Excel Discussion (Misc queries) | |||
stop excel file opened as read only if already opened by another u | Excel Programming |