Question

我开发了一个VBA工具，它允许在全局文件中指向目录中所有xlsx文件的所有P40值。

我的问题是当我在全局文件中分配指针时。

我的指针类型为：/path/year/month/[NameFile]Sheet1'!$P$40

在我的全局文件中，我分配给我的单元格，其行和列随每个实现而变化，此路径显示该值。

问题是如果我在Cells(line, numColumn) line = ...上设置断点，这个方法可以工作并显示全局文件中的值，但是当我删除断点时它不起作用。我已经尝试了等待，时间，......它也不起作用。使用MsgBox它可以使用，但它不实用。如果有人可以帮我这个，请...

就这样你知道，我在Macintosh上。

Dim chaine As String 
chaine = ""

For i = 1 To 12 'All months   
ligneMois = ligne   
Cells(ligneMois, 3) = ConvertirMoisChiffresEnLettres(i) 'Converts month into letters   
mois = TabMois(i)   
Fichier = Dir(chemin & annee & "/" & mois & "/")

NbFicXLSX = NbFichiersXLSX(chemin, annee, mois) 'Count existing xlsx files in the path

Fichier = Dir(chemin & annee & "/" & mois & "/")    

Do While Fichier <> ""
   If Mid(Fichier, InStrRev(Fichier, ".") + 1) = "xlsx" Then
      numColonne = recupNomPersonneMission(chemin, annee, mois, Fichier)
      Workbooks(1).Activate
      Cells(ligne, numColonne) = "='" & chemin & annee & "/" & mois & "/[" & Fichier & "]Feuil1'!$P$40"
       ligne = ligne + 1
   End If
   Fichier = Dir    
Loop

Next i

VBA在没有断点的情况下无法工作

0 个答案: