投稿時間：2003/11/20(Thu) 22:03
投稿者名：学生
Ｅメール：
ＵＲＬ ：
タイトル：Excelのセル数（数字が記入された部分のみ）を数えるプログラム。
vb初心者です。今回いきずまり、投稿させていただきます。
現在使用しているのは、ｗ９８、ｖｂ６．０です。
今エクセルファイルを読み込み、MSFlexGridに貼り付けた所まで、いったんですが。
以下が、そこまでの、プログラムです。
Private Sub Command2_Click()
Dim fnm As String
Dim fnm2 As String
Dim i As Long
Dim j As Long
Dim k As Long
Dim F As Integer
Dim jj As Integer
Dim aa(2000), bb(2000), cc(2000)
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim FileName As String
'読込用のExcelファイル(パスを間違えないように）
FileName = App.Path & "\Export_Output.xls"
'ファイルをオープン（HDR=NO で項目を読込まない)
Set DB = OpenDatabase(FileName, False, False, "Excel 8.0;HDR=YES;")
'テーブルの内容を格納（Sheet1 = Excelのシート名）
Set RS = DB.OpenRecordset("Export_Output1$", dbOpenTable)
'MSFlexGridと連結
Set Data1.Recordset = RS
Data1.Refresh
RS.Close
DB.Close
Set DB = Nothing
Set RS = Nothing
MSFlexGrid2.Visible = True
この後に、読み込んだエクセルファイルのセル数（数字が記入された部分のみ）を数えたいのですが、どうすればいいのか、わかりません。
言葉足らずかと思いますが、どうか、ご教授よろしくお願いします。
|