如何使用vba检查excel表格列中是否存在空白单元格

Question

我正在将Excel表格数据转换为存取表格。我试图找到指定的列是否有空白，然后提示用户。我如何使用vba检查列中的空白单元格。但

Dim ExcelApp As New Excel.Application 
Dim ExcelBook As New Excel.Workbook   
Dim rngblankcells As Excel.Range 
StrFileName="C:\temp\sample.xls" 

Set rngblankcells = ExcelBook.Worksheets("sheet1").Range("AF1:AF178") 
If Not IsEmpty(rngDefine) Then 

    MsgBox "empty" 

    Else 

    'Tranfer sheet 

     DoCmd.TransferSpreadsheet transfertype:=acImport, _ 
     tablename:=table1, _ 
     FileName:=StrFileName, Hasfieldnames:=True, _ 
     Range:="Sheet1!A:BF", SpreadsheetType:=5 

    End If 

代替

.Range("AF1:AF178") 

我访问VBA我需要指定列名。因为范围在所有工作表中都是不确定的，但具有相同的列名称。

Answer 1

如果我需要在Excel电子表格中转换数据，因为我将它导入到Access中，我将逐行逐列，也许填充连接到Access数据库的记录集。我可能做的一件事是检查一个空单元格，并输出一个默认值，如果它是空的。

IIf(IsEmpty(Cells(rowNumber,colNumber)), "My default value", Cells(rowNumber,colNumber)) 

这回答了最初的问题，“如何检查空白单元格是否存在于使用vba的Excel表格列中。”