我试图删除vba中的多个列为excel.我从伊利诺伊统计分析中心下载有关药物逮捕的数据.http://www.icjia.org/public/sac/index.cfm?metasection=forms&metapage=rawMetadata&k=170
我要删除的每列都是彼此分开的3列.
例如:
亚当斯县伊利诺伊州尚佩恩县伊利诺伊州估计|百分比| 误差幅度|估算保证金| 估计|百分比|误差幅度百分比
d | E | F | G | H | I |Ĵ
我只想删除所有列的误差百分比
这是我的微观:
Sub deleteCol()
Columns("H,J").Delete
End Sub
我一直得到运行时'13:类型不匹配错误
有什么建议？
我一直在特定的应用程序中使用CallByName并得到我无法解释的结果.它们在具有以下条件的简单测试中是可再现的
我很感激这种行为的解释.以下代码应该重现它(至少在Excel 2007/Windows 7中)
工作表单元格A1包含5.8
A2含有1.3,A列中的其余细胞是空白的.
课程模块(class1)
Private pMyData
Public Property Get MyData()
MyData = pMyData
End Property
Public Property Let MyData(Value)
pMyData = Value
End Property
常规模块
Option Explicit
Sub foo()
Dim class1 As class1
Dim V(1 To 2, 1 To 1) As Variant
V(1, 1) = [a1]
V(2, 1) = [a2]
Set class1 = New class1
CallByName class1, "MyData", VbLet, V(1, 1)
Debug.Print V(1, 1), class1.MyData ' <-- …我最近升级到Office 365/Excel 2016已导致一些不必要的行为更改.工作簿("Portfolio Appreciation")包含一个Workbook_open过程,该过程检查Workbook("Index Returns")是否打开; 如果不是,它将打开该工作簿.
使用Excel 2007,Index Returns将在后台打开并保持在那里,这是所需的行为.它将在"窗口中",并且可以在同一Excel窗口中使用功能区选项卡Arrange All上的Window选项进行查看View.
使用Excel 2016,如果它通过Workbook_Open过程Index Returns打开,则在其自己的Excel窗口中打开,并在前面结束.(它不能再在同一个Excel窗口中查看Portfolio Appreciation).
Index Returns前面的事实是问题所在.
我尝试选择并取消选择忽略使用DDE的其他应用程序; 我尝试了这个AppActivate方法(如下面的代码所示)并使用a验证MsgBox参数是否与相关的标题栏匹配.
不知道下一步该去哪里.建议表示赞赏.
另外:不 Index Returns包含宏或连接. Portfolio Appreciation除了 Workbook_Open并且确实有一个Web查询在打开时刷新(查询下载一些股票索引的东西).
Option Explicit
Private Sub Workbook_Open()
Dim wbs As Workbooks, wb As Workbook
Dim IndexReturns As String
Dim re As RegExp
Const sPat As String = "(^.*\\DATA\\).*"
Const sRepl As String = "$1EHC\Investment Committee\indexreturns.xlsb"
Dim sTitle …Android中是否可以调用Python脚本？我已经在Python 2.7中使用了一些脚本,我想从Android调用它(该脚本创建文件并填充数据).更具体地说,我正在尝试在手机上执行Python脚本,该脚本连接到某个站点,下载数据并执行一些智能,然后使用新数据创建文件(json on phone).
我WorksheetFunction.Transpose在 VBA中使用将混合日期/字符串的一维数组转换为二维数组以写入工作表。
将我的 Windows 区域设置设置为DMY，写回的日期正在切换月/日。