Tag: 运行

在sorting时陷入运行模式: 我试图通过stringsby中的文本将sheet 2上的数据sorting到sheet 9 。我认为从下面的代码逻辑很简单。但是下面的代码给了运行时错误1004; 为行wk.Rows(j).EntireRow.Selectselect范围类失败的方法更新1：我现在没有得到这个错误，但是它在很长一段时间里一直停留在[running]模式，我不得不中断代码的执行。我正在尝试实现下面的I / O逻辑。我认为我的代码应该可以工作，但要么需要很长的时间，要么陷入无限循环。你能帮我吗 input： col B Commercial Tech Operation Commercial Commercial . . . . 输出： col B Commercial Commercial Commercial Tech Operation . . . 码 Option Explicit Sub SortByCommercial() Dim wk As Worksheet Dim sby, FinalRow, i, j, p Dim WsCount […]

运行检查失败＃0 – ESP的值未正确保存: 我试图从C ++代码编译Excel自动化访问的例子，我得到以下错误：“运行时检查失败＃0 – ESP的值没有正确保存跨函数调用。这通常是调用函数声明与一个调用约定与一个不同的调用约定声明的函数指针“。我已经在互联网上发现并阅读了大量关于这个错误的信息，但是仍然无法明白我应该在代码中修复哪些信息才能使其工作。请查看代码： #include <windows.h> #include <oleacc.h> #import "C:\Program Files (x86)\Common Files\microsoft shared\OFFICE14\MSO.DLL" no_implementation rename("RGB", "ExclRGB") rename("DocumentProperties", "ExclDocumentProperties") rename("SearchPath", "ExclSearchPath") #import "C:\Program Files (x86)\Common Files\microsoft shared\VBA\VBA6\VBE6EXT.OLB" no_implementation #import "C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE" rename("DialogBox", "ExclDialogBox") rename("RGB", "ExclRGB") rename("CopyFile", "ExclCopyFile") rename("ReplaceText", "ExclReplaceText") BOOL EnumChildProc(HWND hwnd, LPARAM) { WCHAR szClassName[64]; if(GetClassNameW(hwnd, szClassName, 64)) { if(_wcsicmp(szClassName, […]

什么是开放自动运行macros的好方法: 我已经尝试使用许多网站build议在打开Excel工作簿时自动运行macros列表的代码。附件是我在ThisWorkbook上的VBA代码： Private Sub WorkbookOpen() MsgBox "STOP! Do NOT attempt to highlight any fields manually!" & vbCrLf & _ "Any highlighting will be overwritten upon reentry of this workbook.", vbOKOnly +vbExclamation Call Melanoma.ReformatDeplete Call Melanoma.CScheckNO Call Melanoma.CScheckMissing Call Glioma.ReformatDeplete Call Glioma.ReformatGBM Call Glioma.CScheckNO Call Glioma.CScheckMissing Call Breast.ReformatDeplete Call Breast.CScheckNO Call Breast.CScheckMissing Call Lymphoma.ReformatDeplete Call Lymphoma.CScheckNO […]