[VBA]Van uit Word data in Excel ophalen

[kippy]

Het is me net geluikt om van uit Word een Excel sheet te oppenen maar ik krijg het niet voor elkaar om data van uit dat sheet naar mijn "VBA-Word form" te copyeeren. Ik heb gelezen dat ik eerst een Excel object moet aanmaken, maar heb hier eigenlijk geen ervaring mee.

Dit is wat ik tot nu toe heb.

code:

Private Sub CommandButton1_Click()
Set appexcel = CreateObject("Excel.Application")

    Dim RetVal
            With Dialogs(wdDialogFileOpen)
                    iOKCancel = .Display
                    suserinput = WordBasic.FileNameInfo$(.Name, 1)
            End With
Set Workbook = appexcel.Workbooks.Open(FileName:=suserinput)
Set Workbook = appexcel.Workbooks.Open(suserinput)

appexcel.Visible = True
Workbook.Activate

If Workbook.Worksheets("Sheet1").Range(B4).Values = "Article:" Then
    MsgBox ("bla")
End If
 
Set appexcel = Nothing
Set Workbook = Nothing

End Sub

hiermee kan ik dus via de "file open" dialog van word een Excel bestand opennen, dat werkt ook best leuk. alleen wanneer die de data gaat vergelijken in Excel krijg ik een foutmelding. Heeft iemand een oplossing voor mij of kan iemand mij opweg helpen?

[lier]

Als ik je een hele luie oplossing (waarvan je een hoop kan leren) mag aandragen:

Neem een nieuwe macro op in Word en ga vanuit Word samenvoegen met Excel.

[Equator]

Open gewoon een ODBC koppeling naar je excel file en gebruik de recordset opm je velden in je formulier te vullen.

Of denk ikdan te makkelijk..

[kippy]

lier schreef op woensdag 18 mei 2005 @ 08:56:
Als ik je een hele luie oplossing (waarvan je een hoop kan leren) mag aandragen:

Neem een nieuwe macro op in Word en ga vanuit Word samenvoegen met Excel.

Dat had ik geprobeerd, maar ik krijg alleen maar "selection.paste" in men geweldige nieuwe macro. Ik weet niet hoe dat komt (Office 2000) maar dat schoot jammer genoeg niets op.

En ik heb geen idee wat een ODBC koppeling is, ben het nu een beetje aan het bekijken.

[lier]

Zoek ook eens (zelf) op Internet:

ActiveDocument.MailMerge.OpenDataSource

http://www.google.nl/sear...&btnG=Google+zoeken&meta=

[kippy]

lier schreef op woensdag 18 mei 2005 @ 09:08:
Zoek ook eens (zelf) op Internet:

ActiveDocument.MailMerge.OpenDataSource

http://www.google.nl/sear...&btnG=Google+zoeken&meta=

wow dit gaat allemaal een beetje boven mijn kunnen. Ik zal er nog eens rustig naar kijken, maar werk willen ze in een keer dat ik allemaal andere dingen ga doen. Als iemand nog een "Makkelijke" oplossing heeft zou ik dat zeer fein vinden, en ik zal zelf nog verder zoeken.

[kippy]

ik snap van mailmerge echt helemaal niets, zijn er nog andere oplossingen of kan iemand mij iets verder opweghelpen dan met "gebruik mailmerge".

[Creepy]

Ok.. ondertussen heeft het een stuk minder met programmeren te maken, des te meer met het gebruik van office applicaties. Een mooi moment om een move te doen naar OFF \o/

Move -> OFF

[kippy]

Ok, men probleem is nu opgelost Ik weer helemaal blij.

Ik had dus de references van excel in mijn word aplicatie toe moeten voegen, eigenlijk best dom om te vergeten.

Dus voor de mensen die ook een koppeling naar excel van uit word willen maken, hier de code.

code:

Dim Userinput As String, usterin As String

Private Sub CommandButton1_Click()
Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRng As Excel.Range
Dim ExcelWasNotRunning As Boolean
Dim WorkbookToWorkOn As String

Set oXL = CreateObject("Excel.Application")
    With Dialogs(wdDialogFileOpen)
        .Name = "*.xls"
        iOKCancel = .Display
        Userinput = WordBasic.FileNameInfo$(.Name, 1)
        userin = .Name
    End With

oXL.Visible = True
Set oWB = oXL.Workbooks.Open(FileName:=Userinput)

If oXL.ActiveWorkbook.Worksheets("Sheet1").Range("B5") = "Article:" Then
MsgBox ("bla")
End If

Set oRng = Nothing
Set oSheet = Nothing
Set oWB = Nothing
Set oXL = Nothing

End Sub

en toen was het weer een onderwerp voor "Programming en webscripting" maar ach, het werkt dus ik vind het allemaal goed.

[gorgi_19]

en toen was het weer een onderwerp voor "Programming en webscripting" maar ach, het werkt dus ik vind het allemaal goed.

Het blijft allemaal VBA, dus geen Programming & Webscripting, maar Officesuites en -software