|
初めまして、alfと申します。
今までVCメインでしたが急きょ今日からVBAをやる羽目になりました。(泣)
以下にソースを記述します。
Dim OpenFileName As String
Private Sub CalcButton_Click()
' フルパス分割
Dim PathName As String, FileName As String, pos As Long
pos = InStrRev(OpenFileName, "\")
PathName = Left(OpenFileName, pos)
FileName = Mid(OpenFileName, pos + 1)
Dim book As Workbook
Dim str As String
Set book = Application.Workbooks(FileName)
'ワークシートは1
str = book.Worksheets(1).Range("A1").Value
MsgBox str
'AveTextBox.Text = str
' 平均算出
Dim Result As Double
'***********************
'↓ここでエラー:1004が発生
Result = Application.WorksheetFunction.Average(Range("B2:B10"))
'***********************
End Sub
Private Sub FileSelectButton_Click()
' ファイル選択
OpenFileName = Application.GetOpenFilename("CSVファイル,*.csv")
If OpenFileName <> "False" Then
Workbooks.Open OpenFileName
End If
End Sub
上記*******で囲まれた部分で「エラー:1004 Averageプロパティを取得できません」が出ます。
Double型に限らず、Range("J6").Valueなどに代入しても同様のエラーが出てしまいます。
色んなサイトを調べならがかれこれ3時間くらい悩んでいますが、原因が全く分からずもう泣きそうです…
一体どうしたらよろしいでしょうか?(最終的にはテキストボックスのTextプロパティに平均値を入れたいです)
以上、何卒よろしくお願いします。
|
|