Søg, Find, Erstat <NAVN> i EXCEL fra VB.

Hvis du kan kalde en VBA procedure som ser sådan ud:
Sub test(NewVal)
    Dim cell As Range
    For Each cell In ActiveSheet.UsedRange
        If cell = "<NAVN>" Then
          cell = NewVal
          exit for
        End If
    next
End Sub

Ja... en VBA, men hvad nu hvis det er en VB 6.0 program jeg gerne vil smide det ovre fra???? Der står måske "IB PERDERSEN" i en Textbox.... og vil gern erstatte <NAVN>.....

jeg har fundet følgende :
      Option Explicit

      Private Sub Command1_Click()
      Dim oExcelApp As Object

      ' Create a reference to the currently running excel application
      Set oExcelApp = GetObject(, "Excel.application")
      ' Make the Excel Application Visible.
      oExcelApp.Visible = True
      ' Run the excel procedure
      oExcelApp.run "proc", "David", 30
      End Sub
           
det kan måske bruges til at kalde ovenstående procedure - der er måske en mere direkte måde.
Se i øvrigt http://www.xldennis.com/mskbartiklar.htm

Jamen der er den jo igen... vil det sige at jeg SKAL oprette en MACRO i Excel'en før det virker???

Jeg har nemlig denne kode til WORD! Kan man ikke gøre det samme med EXCEL???
--------------------------------------------------------------------
Set WordDoc = objWord.Documents.Add(App.Path & "\1.doc")

Dim objWordApp
Set objWordApp = CreateObject("Word.Application")
objWordApp.Visible = True
objWordApp.Documents.Open (App.Path & "\1.doc")

objWordApp.Selection.Find.Execute "<TEST>", False, False, False, False, False, True, wdFindContinue, False, Text2.Text, 2

Sub FindOgErstat()
      Dim oExcelApp As Object
      Dim NyTekst As String
      Set oExcelApp = CreateObject("excel.Application")
      NyTekst = "Ib Petersen"
      oExcelApp.Visible = True
      oExcelApp.Workbooks.Open "C:\test2.xls"
      oExcelApp.Cells.Replace What:="<NAVN>", Replacement:=NyTekst, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
End Sub

Sådanne Bak!!!...... så er der point!

Liiiiige.... et lille spm mere.... jeg smider selvfølgelig flere point i hvis det kan løses!!

HVIS nu vi siger at vi vil erstatte ca. 50 ord, og mand smider dem i eks et par textboxe og XLS arket bliver åbnet for erstatte dem, men NOGEN af dem IKKE findes i XLS arket, kan man å bare få dem til at gå videre med erstatningen, istedet for at den kommer med en fejlmeldning´???

Det er lidt trældt hvis man skal trykke ok 25 gange, hvis ordene ikke lige er i dokumentet!!!

Kan det ikke lade sig gøre eller hvad?

jo, jo s'føli kan det lade sig gøre, men hvordan er din søg og erstat ord lagret ?
Prøv lige at vise det, så fikser jeg den.

imens kan du lige teste denne

Sub FindOgErstat()
      Dim oExcelApp As Object
      Dim NyTekst As String
      Set oExcelApp = CreateObject("excel.Application")
      NyTekst = "Ib Petersen"
      oExcelApp.Visible = True
      oExcelApp.Workbooks.Open "C:\test2.xls"
      oExcelApp.DisplayAlerts = False
      oExcelApp.Cells.Replace What:="<NAVN>", Replacement:=NyTekst, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
End Sub

Den ser sådan her ud:
-----------

Dim oExcelApp As Object
      Dim NyTekst As String
      Set oExcelApp = CreateObject("excel.Application")
      oExcelApp.Workbooks.Open (App.Path & "\1.xls")
      NyTekst = "Ib Petersen"
      oExcelApp.Visible = True
      oExcelApp.Cells.Replace What:="<NAVN>", Replacement:=NyTekst, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False

Hey BAK..... den virker sgu... tak tak... så få lige trykket på svar så du kan få dine point!

BAK: Du lyder til at have lidt meget forstand på det her... måske vil du gerne hjælpe mig med en anden opgave.... jeg giver gerne 200 point for den????

Stil du nu bare spørgsmålet først :o)

jeg smider lige et svar... :-)

Jeg har fået det til at virke..... men point til dig!