Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Open file (z.B. xls) in ReadOnly?
 24.09.2014 21:29:07 Gast
NotSolved
24.09.2014 23:24:59 Gast89161
NotSolved

Ansicht des Beitrags:
Von:
Gast		 Datum:
24.09.2014 21:29:07		 Views:
966		 Rating:
     
Antwort:
  Ja
Thema:
VBA Open file (z.B. xls) in ReadOnly?

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Open file (z.B. xls) in ReadOnly?
 24.09.2014 21:29:07 Gast
NotSolved
24.09.2014 23:24:59 Gast89161
NotSolved