tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル ExcelVBAでWAVEファイルデータを表示
投稿日: 2008/06/19(Thu) 00:05
投稿者KOKU
WAVEファイルデータをエクセルに取り込みグラフ表示や加工をしたいと思いまして、
以下のプログラム(一部)を作成していますが、ファイルサイズの取り出しでエラー
(型が一致しない)が出て前に進めません。どのように変換して数値データとして取
り出せばいいかご教授いただきたいと思いまして投稿いたしました。

' ファイル情報の表示
Private Sub DispFileInfoByHandle()
    Dim fi As BY_HANDLE_FILE_INFORMATION
    Dim hFile As Long
    Dim ft As FILETIME
    Dim st As SYSTEMTIME
    Dim rc, n As Long
    Dim a As String
    'ファイルのオープン
    hFile = CreateFile(myOpenFile, GENERIC_READ + GENERIC_WRITE, 0, 0,
OPEN_EXISTING, 0, 0)
        
    'ファイル情報の取得
    GetFileInformationByHandle hFile, fi
    'ファイルの読込
    Dim bf As String
    bf = String(fi.FileIndexLow, " ")
    Dim rdcnt As Long
    Dim i, b As Long
    rc = ReadFile(hFile, bf, 30, rdcnt, vbNullString)    
    CloseHandle hFile
    'データ表示
    a = LeftB(bf, 8)
    Sheet1.Cells(n, 1) = a
    
    'この行で型が一致しないと出る
    b = CDec(MidB(bf, 9, 8))
    
    
    Sheet1.Cells(n + 1, 1) = b
End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。