[Excel] visual basic macro (error)

[Verwijderd]

code:

Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 8-10-2003 door *****.
'
Dim art As String
Dim rij As String

Windows("Artikelen voor taak 9.txt").Activate
art = InputBox("Geef artikelnummer")
plaats = InputBox("Geef plaats")
Cells.Find(What:=art, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
rij = art + ":" + art
Range(rij).Select
Selection.Copy
Windows("Map2").Activate
plaats = plaats + ":" + plaats
Range(plaats).Select

ActiveSheet.Paste
Windows("Artikelen voor taak 9.txt").Activate

Application.CutCopyMode = False

End Sub

dit een macro die via een artikelen bestand, gegevens in een excel sheet kan importeren.
Artikelen voor taak 9.txt is het artikelen bestand.

de macro geeft alleen op deze regel een error: Windows("Artikelen voor taak 9.txt").Activate

wat heb ik fout gedaan...???

[ Voor 8% gewijzigd door Verwijderd op 06-09-2004 11:10 ]

[BtM909]

Zet voortaan je code ook even in [code]...[/]-tags

Daarnaast lijkt het alsof je een window (file activeert die al geopend is) die niet bestaat. Is die file uberhaupt geopend?

[Verwijderd]

ok gedaan;)

maar je bedoeld of ik het artikelen bestand geopend heb?

ik heb 2 codes in kladblok geschreven, 1 is de code hierboven de ander is het artikelen bestand.

en als ik dus de bovenstaande code importeer in VB dan geeft ie dus die error,
moet ik dan ook het artikelen bestand in VB importeren??

[BtM909]

Verwijderd schreef op 06 september 2004 @ 11:12:
en als ik dus de bovenstaande code importeer in VB dan geeft ie dus die error,
moet ik dan ook het artikelen bestand in VB importeren??

Maar, je wilt een txt bestand importeren? Dan moet je niet window...activate gebruiken. Dat is bedoeld om een geopend document te activeren. Zoek eens naar import functies binnen VBA.

[F_J_K]

Naast bovenstaande (de teksten onder F1 zijn best goed, lees het even door), je zegt enkel 'een fout'. Welke precies? Lijkt me zwaar relevant

offtopic:
Ik zet even de naam van de app in de titel. Ook best relevant

[onkl]

Soms werkt de Macrorecorder van Excel helemaal niet onaardig:

code:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 06/09/2004
'

'
    Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\Desktop\test.txt" _ 
         ,Origin:=437, StartRow:=1 , DataType:=xlDelimited _ 
         ,TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False _
         , Tab:=True, Semicolon:=False, Comma:=False _
         , Space:=False, Other:=False _
         , FieldInfo:=Array(Array(1, 1), Array(2, 1))_
         ,TrailingMinusNumbers:=True
End Sub

Als je dit 'vertaald' naar een fatsoenlijke macro dan krijg je iets als:

code:

Dim artikelbestand as workbook

Sub een_fatsoenlijke_naam(hint O-) )
Set artikelbestand = workbooks.OpenText(Filename:= ... ,_
 Allerlei andere parameters:= ...)
'je ding
end sub

Om al je parameters te sprokkelen kan je idd ook zelf even met macrorecorder aan je bestand handmatig openen.