ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Opening Notepad from Excel (https://www.excelbanter.com/excel-programming/435584-opening-notepad-excel.html)

Ayo

Opening Notepad from Excel
 
I am trying to write a VBA code that does the following:
1. open Notepad from inside Excel
2. Save a blank file (i.e, Save as Test.kml)
3. Close the Notepad

Dave Peterson

Opening Notepad from Excel
 
You want a 0 byte file?

Option Explicit
Sub testme()

Open "C:\Test.kml" For Output As 1
Close #1

End Sub

Be careful with this. If that file exists, then it's emptied. If it doesn't
exist, it'll be created.

(Change the path to what you want.)



Ayo wrote:

I am trying to write a VBA code that does the following:
1. open Notepad from inside Excel
2. Save a blank file (i.e, Save as Test.kml)
3. Close the Notepad


--

Dave Peterson

joel[_126_]

Opening Notepad from Excel
 

You don't need to run notepad. Just create the file and close it.

Const ForReading = 1, ForWriting = -2, _
ForAppending = 3

WriteFile = "c:\temp\Test.kml"
Set fs = CreateObject("Scripting.FileSystemObject")
Set fout = fs.CreateTextFile _
(Filename:=WriteFile, overwrite:=True)

fout.Close


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=149280


Ayo

Opening Notepad from Excel
 
Thanks

"Dave Peterson" wrote:

You want a 0 byte file?

Option Explicit
Sub testme()

Open "C:\Test.kml" For Output As 1
Close #1

End Sub

Be careful with this. If that file exists, then it's emptied. If it doesn't
exist, it'll be created.

(Change the path to what you want.)



Ayo wrote:

I am trying to write a VBA code that does the following:
1. open Notepad from inside Excel
2. Save a blank file (i.e, Save as Test.kml)
3. Close the Notepad


--

Dave Peterson
.


Ayo

Opening Notepad from Excel
 
Thanks

"joel" wrote:


You don't need to run notepad. Just create the file and close it.

Const ForReading = 1, ForWriting = -2, _
ForAppending = 3

WriteFile = "c:\temp\Test.kml"
Set fs = CreateObject("Scripting.FileSystemObject")
Set fout = fs.CreateTextFile _
(Filename:=WriteFile, overwrite:=True)

fout.Close


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=149280

.



All times are GMT +1. The time now is 07:17 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com