Hallo,
Seit einem halben Tag tueftle ich an einem VB Code.
Ich moechte aus einem Workbook (Sheet..) eine Tabelle in ein zweites File umkopieren. Das zweite File sollte ein Dif File sein.
Wenn ich es aus dem VBA Code oeffne, wird es immer als ReadOnly geoeffnet.
Auch wenn ich die Parameter bei OPEN - Befehl als Write eingebe!
Leider bin ich noch zu unerfahren! Komme an dieser Stelle nicht weiter! Danke fuer die Hilfe!
Sub Symbollist_Export()
Dim myFile As Variant, cellvalue As Variant, i As Integer, j As Integer
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Set Wb1 = ActiveWorkbook
myFile = Application.GetSaveAsFilename(InitialFileName:="Symbollist", fileFilter:="Data Exchange Format, *.dif")
If myFile = False Then
Exit Sub
Else
Open myFile For Random Access Write Shared As #1
Application.DisplayAlerts = False
Set Wb2 = Workbooks.Open(Filename:=myFile)
Wb2.ChangeFileAccess Mode:=xlReadWrite
For i = 1 To 30000
For j = 1 To 4
Wb2.Worksheets("Symbollist").Cells(i, j).Value = Wb1.Worksheets("Symbollist").Cells(i + 1, j).Value
Next j
If IsEmpty(Wb1.Worksheets("Symbollist").Cells(i + 2, 2)) Then Exit For
Next i
Wb2.Save
Wb2.Close
Application.DisplayAlerts = True
Close #1
End If
MsgBox "Done"
End Sub
|