| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
MsgBox in another Instance of Excel
I want to open another instance of excel and show a message box in the new
Excel app. Any idea how? Sub PrintForm() Dim OrigFile As String Dim filestring As String Dim OpenThisFile As String Dim CurVesl As String Dim xlApp As Excel.Application Set xlApp = CreateObject("Excel.Application") OrigFile = ThisWorkbook.Name CurVesl = ThisWorkbook.Sheets("Vessel").Range("EA2").Value filestring = "Dock Log_Fillout.xls" 'File to Open in Another Instance of Excel OpenThisFile = ThisWorkbook.Path & "\" & filestring xlApp.WindowState = xlMaximized xlApp.Workbooks.Open Filename:=OpenThisFile xlApp.Worksheets(1).Range("C5").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 3).Value ' SHIP/TUG NAME: xlApp.Worksheets(1).Range("C6").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 4).Value ' BARGE NAME: xlApp.Worksheets(1).Range("C7").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 5).Value ' INSPECTION COMPANY: xlApp.Worksheets(1).Range("C10").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 11).Value ' NOR TENDERED xlApp.Worksheets(1).Range("C11").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 13).Value ' ANCHORED/LAY BERTH xlApp.Worksheets(1).Range("C12").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 15).Value ' START INBOUND xlApp.Worksheets(1).Range("C13").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 17).Value ' INSPECTION CO. NOTIFIED xlApp.Worksheets(1).Range("C14").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 19).Value ' FIRST LINE xlApp.Worksheets(1).Range("C15").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 21).Value ' ALL FAST xlApp.Worksheets(1).Range("C16").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 23).Value ' GANGWAY SECURE xlApp.Worksheets(1).Range("c18").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 37).Value ' SHORE TANK # : xlApp.Worksheets(1).Range("c19").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 38).Value ' CARGO: xlApp.Worksheets(1).Range("c21").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 39).Value ' TRANSFER START xlApp.Worksheets(1).Range("c22").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 41).Value ' TRANSFER STOP/FINISH xlApp.Worksheets(1).Range("c24").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 49).Value ' SHORE TANK # : xlApp.Worksheets(1).Range("c25").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 50).Value ' CARGO: xlApp.Worksheets(1).Range("c27").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 51).Value ' TRANSFER START xlApp.Worksheets(1).Range("c28").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 53).Value ' TRANSFER STOP/FINISH xlApp.Worksheets(1).Range("c30").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 67).Value ' INSPECTOR NOTIFIED xlApp.Worksheets(1).Range("c31").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 69).Value ' INSPECTOR ABOARD xlApp.Worksheets(1).Range("c32").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 71).Value ' VESSEL INSPECTION COMP xlApp.Worksheets(1).Range("c33").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 73).Value ' LAST ARM/HOSE DISCONNECTED xlApp.Worksheets(1).Range("c30").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 68).Value ' INSPECTOR NOTIFIED xlApp.Worksheets(1).Range("c31").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 70).Value ' INSPECTOR ABOARD xlApp.Worksheets(1).Range("c32").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 72).Value ' VESSEL INSPECTION COMP xlApp.Worksheets(1).Range("c33").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 74).Value ' LAST ARM/HOSE DISCONNECTED xlApp.Worksheets(1).Range("d10").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 12).Value ' NOR TENDERED xlApp.Worksheets(1).Range("d11").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 14).Value ' ANCHORED/LAY BERTH xlApp.Worksheets(1).Range("d12").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 16).Value ' START INBOUND xlApp.Worksheets(1).Range("d13").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 18).Value ' INSPECTION CO. NOTIFIED xlApp.Worksheets(1).Range("d14").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 20).Value ' FIRST LINE xlApp.Worksheets(1).Range("d15").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 22).Value ' ALL FAST xlApp.Worksheets(1).Range("d16").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 24).Value ' GANGWAY SECURE xlApp.Worksheets(1).Range("d21").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 40).Value ' TIME xlApp.Worksheets(1).Range("d22").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 42).Value ' TIME xlApp.Worksheets(1).Range("d27").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 52).Value ' TIME xlApp.Worksheets(1).Range("d28").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 54).Value ' TIME xlApp.Worksheets(1).Range("d30").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 42).Value ' INSPECTOR NOTIFIED xlApp.Worksheets(1).Range("d31").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 44).Value ' INSPECTOR ABOARD xlApp.Worksheets(1).Range("d32").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 46).Value ' VESSEL INSPECTION COMP xlApp.Worksheets(1).Range("d33").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 48).Value ' LAST ARM/HOSE DISCONNECTED xlApp.Worksheets(1).Range("b46").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 84).Value ' Comments1 xlApp.Worksheets(1).Range("b47").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 91).Value ' Comments2 xlApp.Worksheets(1).Range("b48").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 98).Value ' Comments3 xlApp.Worksheets(1).Range("b49").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 105).Value ' Comments4 xlApp.Worksheets(1).Range("b50").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 112).Value ' Comments5 xlApp.Worksheets(1).Range("f46").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 83).Value ' codedelay1 xlApp.Worksheets(1).Range("f47").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 90).Value ' codedelay2 xlApp.Worksheets(1).Range("f48").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 97).Value ' codedelay3 xlApp.Worksheets(1).Range("f49").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 104).Value ' codedelay4 xlApp.Worksheets(1).Range("f50").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 111).Value ' codedelay5 xlApp.Worksheets(1).Range("h11").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 25).Value ' VESSEL CLEARED xlApp.Worksheets(1).Range("h12").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 27).Value ' INSPECTOR ABOARD xlApp.Worksheets(1).Range("h13").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 29).Value ' LAST ARM/HOSE CONNECTED xlApp.Worksheets(1).Range("h14").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 31).Value ' COMPLETE GAUGING/CALCULATIONS xlApp.Worksheets(1).Range("h15").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 33).Value ' VSL/SHORE CONFERENCE FIN xlApp.Worksheets(1).Range("h16").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 35).Value ' PRE TRANSFER LAB ANALYSIS OK xlApp.Worksheets(1).Range("j11").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 26).Value ' VESSEL CLEARED xlApp.Worksheets(1).Range("j12").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 28).Value ' INSPECTOR ABOARD xlApp.Worksheets(1).Range("j13").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 30).Value ' LAST ARM/HOSE CONNECTED xlApp.Worksheets(1).Range("j14").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 32).Value ' COMPLETE GAUGING/CALCULATIONS xlApp.Worksheets(1).Range("j15").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 34).Value ' VSL/SHORE CONFERENCE FIN xlApp.Worksheets(1).Range("j16").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 36).Value ' PRE TRANSFER LAB ANALYSIS OK xlApp.Worksheets(1).Range("f18").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 43).Value ' SHORE TANK # : xlApp.Worksheets(1).Range("f19").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 44).Value ' CARGO: xlApp.Worksheets(1).Range("h21").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 45).Value ' TRANSFER RESUME xlApp.Worksheets(1).Range("h22").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 47).Value ' TRANSFER STOP/FINISH xlApp.Worksheets(1).Range("f24").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 55).Value ' SHORE TANK #: xlApp.Worksheets(1).Range("f25").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 56).Value ' CARGO: xlApp.Worksheets(1).Range("h27").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 57).Value ' TRANSFER RESUME xlApp.Worksheets(1).Range("h28").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 59).Value ' TRANSFER STOP/FINISH xlApp.Worksheets(1).Range("j21").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 46).Value ' TRANSFER RESUME xlApp.Worksheets(1).Range("j22").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 48).Value ' TRANSFER STOP/FINISH xlApp.Worksheets(1).Range("j27").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 58).Value ' TRANSFER RESUME xlApp.Worksheets(1).Range("j28").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 60).Value ' TRANSFER STOP/FINISH xlApp.Worksheets(1).Range("j30").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 76).Value ' BOOM REMOVED xlApp.Worksheets(1).Range("j31").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 78).Value ' VESSEL RELEASED xlApp.Worksheets(1).Range("j32").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 80).Value ' GANGWAY UP xlApp.Worksheets(1).Range("j33").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 82).Value ' VESSEL SAILED xlApp.Worksheets(1).Range("j30").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 77).Value ' BOOM REMOVED xlApp.Worksheets(1).Range("j31").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 79).Value ' VESSEL RELEASED xlApp.Worksheets(1).Range("j32").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 81).Value ' GANGWAY UP xlApp.Worksheets(1).Range("j33").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 82).Value ' VESSEL SAILED Date xlApp.Worksheets(1).Range("g46").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 85).Value ' Start Date Comment1 xlApp.Worksheets(1).Range("g47").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 92).Value ' Start Date Comment2 xlApp.Worksheets(1).Range("g48").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 99).Value ' Start Date Comment3 xlApp.Worksheets(1).Range("g49").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 106).Value ' Start Date Comment4 xlApp.Worksheets(1).Range("g50").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 113).Value ' Start Date Comment5 xlApp.Worksheets(1).Range("h46").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 86).Value ' Start Time Comment1 xlApp.Worksheets(1).Range("h47").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 93).Value ' Start Time Comment2 xlApp.Worksheets(1).Range("h48").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 100).Value ' Start Time Comment3 xlApp.Worksheets(1).Range("h49").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 107).Value ' Start Time Comment4 xlApp.Worksheets(1).Range("h50").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 114).Value ' Start Time Comment5 xlApp.Worksheets(1).Range("i46").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 87).Value ' End Date Comment1 xlApp.Worksheets(1).Range("i47").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 94).Value ' End Date Comment2 xlApp.Worksheets(1).Range("i48").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 101).Value ' End Date Comment3 xlApp.Worksheets(1).Range("i49").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 108).Value ' End Date Comment4 xlApp.Worksheets(1).Range("i50").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 115).Value ' End Date Comment5 xlApp.Worksheets(1).Range("j46").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 88).Value ' End Time Comment1 xlApp.Worksheets(1).Range("j47").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 95).Value ' End Time Comment2 xlApp.Worksheets(1).Range("j48").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 102).Value ' End Time Comment3 xlApp.Worksheets(1).Range("j49").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 109).Value ' End Time Comment4 xlApp.Worksheets(1).Range("j50").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 116).Value ' End Time Comment5 xlApp.Worksheets(1).Range("k46").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 89).Value ' Duration Comment1 xlApp.Worksheets(1).Range("k47").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 96).Value ' Duration Comment2 xlApp.Worksheets(1).Range("k48").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 103).Value ' Duration Comment3 xlApp.Worksheets(1).Range("k49").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 110).Value ' Duration Comment4 xlApp.Worksheets(1).Range("k50").Value = Workbooks(OrigFile).Sheets("Vessel").Cells(CurVesl , 117).Value ' Duration Comment5 xlApp.Visible = True xlApp.ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1 MsgBox "Dock Log Sent to Printer: " & xlApp.ActivePrinter |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Excel - New Instance | Excel Discussion (Misc queries) | |||
| How do I get one instance of Excel to communicate with another instance? | Excel Programming | |||
| How to get all Excel instance | Excel Programming | |||
| MsgBox in new instance of Excel? | Excel Programming | |||
| MsgBox - How to display In Other Instance of Excel | Excel Programming | |||
Threaded Mode
