VB -> Excel -> VB

' Declare necessary API routines:
Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName as String, _
              ByVal lpWindowName As Long) As Long

Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hWnd as Long,ByVal wMsg as Long, _
              ByVal wParam as Long, _
              ByVal lParam As Long) As Long

Sub GetExcel()
  Dim MyXL As Object  ' Variable to hold reference
                        ' to Microsoft Excel.
  Dim ExcelWasNotRunning As Boolean  ' Flag for final release.

' Test to see if there is a copy of Microsoft Excel already running.
  On Error Resume Next  ' Defer error trapping.
' Getobject function called without the first argument returns a
' reference to an instance of the application. If the application isn't
' running, an error occurs.
  Set MyXL = Getobject(, "Excel.Application")
  If Err.Number <> 0 Then ExcelWasNotRunning = True
  Err.Clear  ' Clear Err object in case error occurred.

' Check for Microsoft Excel. If Microsoft Excel is running,
' enter it into the Running Object table.
  DetectExcel

' Set the object variable to reference the file you want to see.
  Set MyXL = Getobject("c:\vb4\MYTEST.XLS")

' Show Microsoft Excel through its Application property. Then
' show the actual window containing the file using the Windows
' collection of the MyXL object reference.
  MyXL.Application.Visible = True
  MyXL.Parent.Windows(1).Visible = True
    Do manipulations of your  file here.
  ' ...
' If this copy of Microsoft Excel was not running when you
' started, close it using the Application property's Quit method.
' Note that when you try to quit Microsoft Excel, the
' title bar blinks and a message is displayed asking if you
' want to save any loaded files.
  If ExcelWasNotRunning = True Then
      MyXL.Application.Quit
  End IF

  Set MyXL = Nothing  ' Release reference to the
                        ' application and spreadsheet.
End Sub

Sub DetectExcel()
' Procedure dectects a running Excel and registers it.
  Const WM_USER = 1024
  Dim hWnd As Long
' If Excel is running this API call returns its handle.
  hWnd = FindWindow("XLMAIN", 0)
  If hWnd = 0 Then  ' 0 means Excel not running.
      Exit Sub
  Else           
  ' Excel is running so use the SendMessage API
  ' function to enter it in the Running Object Table.
      SendMessage hWnd, WM_USER + 18, 0, 0
  End If
End Sub

Set MyXL = Getobject("c:\vb4\MYTEST.XLS") '<--- skal self være:

Set MyXL = Getobject(App.Path & "\ped.xls")

og hWnd = FindWindow("XLMAIN", 0) '<--- skal være:

hWnd = FindWindow("vbSource", 0)

efter hvad jeg lige kan se.....
ved ikke om der er mere der skal rettes til.......

/Tubber

Den skal jo ikke åbne Excel.... bare hente og skrive værdier frem og tilbage.....

Ja fedt det virker ikke! HELP.... hvad skal ind hvor????

Du er nødt til at åbne excel for at skrive til den, men ikke for at læse i den.
Denne sub åbner en skjul excelsession.

Sub TilOgFraExcel()
    Dim xlApp As Excel.Application
    Set xlApp = New Excel.Application
   
    'xlApp.Visible = True
    With xlApp
        .Workbooks.Open "C:\PID.xls"
        .ActiveWorkbook.Worksheets("vbSource").Range("A1") = DataTilExcel
        DataFraExcel = .ActiveWorkbook.Worksheets("vbSource").Range("B2")
    End With
    xlApp.Quit
    Set xlApp = Nothing
End Sub

Hallo, Her brokker du dig over at ingen kan svare på dit spørgsmål, og så giver ingen tilbagemelding hvis nogen forsøger..

UNDSKYLD men jeg har været syg OK!!!!

Jeg skal nok få kigget på det.....

Melder tilbage mandag!

Du behøver ikke undskylde, alle kan blive syge :-)