Thema Datum  Von Nutzer Rating
Antwort
Rot Aus VBA Bytes in Datei schreiben
 05.12.2016 11:53:05 Arndt
Solved
05.12.2016 16:21:49 Holger
NotSolved

Ansicht des Beitrags:
Von:
Arndt		 Datum:
05.12.2016 11:53:05		 Views:
986		 Rating:
     
Antwort:
 Nein
Thema:
Aus VBA Bytes in Datei schreiben

Hallo zusammen!

Ich möchte gerne aus Excel eine WAV-Datei schreiben. Das Format habe ich gefunden. Nun liegen die Daten als einzelne Bytes in einer Spalte vor.
Folgender Code sollte zunächst mal den Header schreiben:

<code>    Sub Export_WAV()
'
' Export_WAV Makro
'

'
Dim iI, iFileID As Integer
Dim sFilename As Variant
Dim yValue As Variant
Dim CType As Variant

iFileID = FreeFile
sFilename = Application.GetSaveAsFilename(Title:="WAV-DAtei Speichern", FileFilter:="Wave-Datei,*.wav")
If sFilename <> False Then
    Open sFilename For Binary Access Write As #iFileID
    For iI = 2 To 45
        yValue = Worksheets("Header").Cells(iI, 2).Value
        CType = TypeName(yValue)
        Put #iFileID, , CByte(yValue)
    Next
End If
Close #iFileID

End Sub</code>

CType wurde nur für Testzwecke angelegt. Offenbar werden die Werte jeweils als Double gelesen. Trotz expliziter Typumwandlung werden dennoch 14 mal soviele Bytes angelegt, wie erwartet.
Wie kann ich tatsächlich einzelne Bytes schreiben?

Dank und Gruß,
Arndt

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 Aus VBA Bytes in Datei schreiben
 05.12.2016 11:53:05 Arndt
Solved
05.12.2016 16:21:49 Holger
NotSolved