ET System EAC-S Bedienungsanleitung Seite 37

Vorderer Weinberg 26 • D-71522 Backnang •
Doc = StarDesktop.CurrentComponent
Sheet = Doc.Sheets(0)
Cell = Sheet.getCellByPosition(0, 0)
if(Cell.String = "") then
MsgBox("Please insert file name at pos A1 (without extention)")
Exit Sub
endif
'WAV-Datei öffnen
FileName = Cell.String+".WAV"
FileNr = Freefile
Open FileName For Random As #FileNr
Seek #FileNr,1
'Headerdaten schreiben
For i% = 0 To 21
x% = HeaderData(i%) 'Achtung! Variable nicht direkt zuweisen,
Put #FileNr,,x%
Next i%
'Wavedaten schreiben
For i% = 1 To 3600
Cell = Sheet.getCellByPosition(0, i%)
x% = Cell.Value
Put #FileNr,,x%
Next i%
Close #FileNr
End Sub
Beispielmakro für ein Excel Tabellendokument (*.xls):
Sub EAC_S_Wave()
Dim FileNr As Integer
Dim FileName As String
Dim HeaderData As Variant
'Initalisiere Header-Data
HeaderData = Array(&H4952, &H4646, &H1C44, &H0, &H4157, &H4556, _
&H6D66, &H2074, &H10, &H0, &H1, &H1, &HFFFFBF20, &H2, _
&H7E40, &H5, &H2, &H10, &H6164, &H6174, &H1C20, &H0)
If (Cells(1, 1).Value = "") Then
MsgBox ("Please insert file name at pos A1 (without extention)")
Exit Sub
End If
'WAV-Datei öffnen
FileName = Worksheets("EAC_WAV").Cells(1, 1).Value + ".WAV"
FileNr = FreeFile
Open FileName For Random As #FileNr Len = 2
Seek #FileNr, 1
'Headerdaten schreiben
For i% = 0 To 21
x% = HeaderData(i%) 'Achtung! Variable nicht direkt zuweisen,
Put #FileNr, , x%
Next i%
Tel.:+49 (0)7191 3560-0 (Fax.:-19)
'da diese intern als Long behandelt wird!
'da diese intern als Long behandelt wird!
37