Consulting

Results 1 to 3 of 3

Thread: Open, save and close Notepad file from Excel

  1. #1
    VBAX Newbie
    Joined
    Jan 2008
    Posts
    2
    Location

    Open, save and close Notepad file from Excel

    Hi

    I am trying to write some VBA code in Excel to Open a .dat file in Notepad, save the file and close Notepad. I've managed to open the notepad file using a filename stored in cell A1 (as the name changes daily) but I can't work out how to save the notepad file and close notepad.

    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
    (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpszClass As String, ByVal lpszTitle As String) As Long
    Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
    Private Sub Form_Load2()
    Dim dTaskID As Double, path As String, file As String
    Dim hwndNotepad As Long
    Dim hwndTextbox As Long
    Dim MyName
    MyName = Range("A1")
    path = "C:\WINDOWS\notepad.exe"
    file = "J:\JUTEST\" & MyName
    dTaskID = Shell(path + " " + file, vbNormalFocus)
    hwndNotepad = FindWindowEx(0, 0, "Notepad", vbNullString)
    ???????????? - Code to save and close file
    Windows("BSconvert.xls").Activate
        Sheets("Files").Select
        Rows("1:1").Select
        Selection.Delete Shift:=xlToUp
    ActiveWorkbook.Save
    End Sub
    Can anyone help me please?

    Thanks in advance

    Jules

  2. #2
    VBAX Master Norie's Avatar
    Joined
    Jan 2005
    Location
    Stirling, Scotland
    Posts
    1,831
    Location
    Jules

    What do you mean by a Notepad file?

    There really isn't such a thing.

    Notepad is just one of many applications that can be used to open text files.

    And there are various VBA methods to work with those.

    What is it you are actually trying to do?

  3. #3
    VBAX Newbie
    Joined
    Jan 2008
    Posts
    2
    Location
    Sorry I meant "I've managed to open the .dat file in Notepad using a filename stored in cell A1."

    The file is padded out with a null hexadecimal value of "00" and the file needs to be padded out with spaces (hexadecimal value 20). The simplest solution I have found is to open the file in Notepad and Save it. I need to automate this process so that the end to end process of loading the file can be automated.


    Hope this makes more sense


    Thanks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •