在Outlook中定义Excel变量

时间:2017-08-08 07:28:56

标签: excel vba excel-vba outlook-vba

我想从第3行开始遍历A列,并调试所有已填充单元格的值。

我无法将变量定义为范围。我认为问题是我在Outlook VBA IDE中使用Excel VBA。

ADODB.Connection cn = new ADODB.Connection(); 
ADOX.Column clx = new ADOX.Column();
ADOX.Catalog cat = new ADOX.Catalog(); 
ADOX.Table tblnam;
cn.CursorLocation = ADODB.CursorLocationEnum.adUseClient;cn.Open(sExternalDBConnectionString, "", "", 0); 
cat.ActiveConnection = cn;
clx.ParentCatalog = cat;
clx.Type = ADOX.DataTypeEnum.adGUID; 
clx.Name = "IDField";
clx.Properties["AutoIncrement"].Value = false; 
clx.Properties["Fixed Length"].Value = true;
clx.Properties["Jet OLEDB:AutoGenerate"].Value = true;clx.Properties["Jet OLEDB:Allow Zero Length"].Value = true; 
tblnam = cat.Tables[sExternalDBTableName];
tblnam.Columns.Append(clx, ADOX.DataTypeEnum.adGUID, 16);
cn.Close();

1 个答案:

答案 0 :(得分:0)

问题是rw应该被定义为Object,而不是Range。