Jag försöker läsa in en fil och delar sen upp varje linje i en vektor.
Problemet är att jag inte kan använda vektorn utanför command15-knappen.

Här är min kod:
________________________________
Private Sub Command15_Click()

Dialog.FileName = ""
Dialog.ShowOpen

If Dialog.FileName <> "" Then


ImportedKeywordCSV = ReadFile(Dialog.FileName)
ImportedKeywordCSV = Split(ImportedKeywordCSV, vbCrLf)

status.AddItem "Imported " & UBound(ImportedKeywordCSV) & " lines from CSV-File: " & Dialog.FileName
status.ListIndex = status.NewIndex

End If
End Sub
________________________________



Men när jag försöker köra nåt så simpelt som
MsgBox UBound(ImportedKeywordCSV)

I en _annan_ knapp så står det: Run-time error '13': Type mismatch
Om jag kör samma rad i command15-knappen så är det inge problem.

Hur fixar jag detta?

Du får dimensionera variabeln med rätt scope. Om du vill använda variabeln inom modulen dimensionerar du den som Private längst upp i modulen. Vill du använda den i hela applikationen väljer du istället Public

<code:vb>
Private ImportedKeywordCSV As Variant

Private Sub cmdAnnanKnapp_Click()
Msgbox Ubound(ImportedKeywordCSV)
End Sub

Private Sub Command15_Click()
Dialog.FileName = ""
Dialog.ShowOpen

If Dialog.FileName <> "" Then
ImportedKeywordCSV = ReadFile(Dialog.FileName)
ImportedKeywordCSV = Split(ImportedKeywordCSV, vbCrLf)

status.AddItem "Imported " & UBound(ImportedKeywordCSV) & " lines from CSV-File: " _
& Dialog.FileName
status.ListIndex = status.NewIndex

End If
End Sub
</code>

Perfekt. Nu funkar det! Tack! :)