小编Oli*_*eys的帖子

知道为什么插入断点并停止不再阻止我的vba代码运行？

代码一直运行到最后(我测试了它)但忽略了断点和停止.

另外,只需使代码完全运行,忽略断点和停止.

当我关闭工作簿时,问题似乎源自同一问题发生在其他宏工作簿中.

如果我完全关闭excel并使用正常工作的宏工作簿重新打开它,那么直到我重新打开问题工作簿才会出现问题.

我添加了断点:

TotP1 = 0

以下代码:

Option Explicit

Private Country As String
Private Measure As String
Private P1 As String
Private P2 As String
Private TotP1 As Double
Private TotP2 As Double


Sub VennDisplayIt()

Dim SI() As String
Dim SICount As Integer
Dim x As Integer
Dim OSh As Worksheet
Dim BrandListBox As Object
Dim VennGroup As Shape

TotP1 = 0
TotP2 = 0


Set OSh = ThisWorkbook.Sheets("Venn")

Set BrandListBox = OSh.OLEObjects("BrandListBox").Object

ReDim SI(2, 0)

For …

我正在尝试.csv使用以下代码将分号分隔的文件导入访问数据库。我已经建立了一个名为“Import-FACTS”的导入规范。和 VBA 可以看到规范（通过放入OLEacc.CurrentProject.ImportExportSpecifications(0)观察窗口。

Sub ImportFacts()

Dim OLEacc As Access.Application

Set OLEacc = GetObject("", "Access.Application")

OLEacc.OpenCurrentDatabase (ThisWorkbook.Path & "\" & "LargeData.accdb")

OLEacc.DoCmd.TransferText TransferType:=acImportDelim, _ 
   SpecificationName:="Import-FACTS",_
   TableName:="Facts",_
   Filename:=ThisWorkbook.Path & "\Facts.csv",_
   HasFieldNames:=False

End Sub

但是我收到调试消息：

运行时错误 '3625' 文本文件规范“Import-Facts”不存在 您不能使用该规范导入导出或链接。

有任何想法吗？