Microsoft Excel Webinar

Results 1 to 3 of 3

Thread: Open, save and close Notepad file from Excel

  1. #1

    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.

    VB:
    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 
    
    
    Formatting tags added by mark007
    Can anyone help me please?

    Thanks in advance

    Jules

  2. #2
    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
    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
  •