投稿日 | : 2003/11/20(Thu) 22:03 |
投稿者 | : 学生 |
Eメール | : |
URL | : |
タイトル | : Excelのセル数(数字が記入された部分のみ)を数えるプログラム。 |
vb初心者です。今回いきずまり、投稿させていただきます。
現在使用しているのは、w98、vb6.0です。
今エクセルファイルを読み込み、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
この後に、読み込んだエクセルファイルのセル数(数字が記入された部分のみ)を数えたいのですが、どうすればいいのか、わかりません。
言葉足らずかと思いますが、どうか、ご教授よろしくお願いします。