Question

我为法国同行制作了一个宏，但它似乎并不想工作。我知道有一些功能需要改变，例如LEN成为NBCAR（根据我发现的网站）。在这样做之后，错误说＆＃34; Sub或功能未定义＆＃34; （用法语）同时突出NBCAR。在我的宏版本中，LEN没有定义，所以它有点令人沮丧。有没有快速修复，也许是告诉VBA阅读英文代码的方法？

非常感谢任何帮助。

谢谢

我的英文宏代码：

Application.ScreenUpdating = False
Dim sh1 As Worksheet, N As Long
Dim st As String
Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range
Dim sPath As String
Set sh1 = Sheets("VTR - MASTER")
Dim R As Integer
Dim Z As Range
Dim VTR As String
Dim W As Integer
R = 1
W = 1
VTR = Sheets("VTR - INFO").Range("J1").Value

MsgBox "Select Destination To Save ORT CSV", vbInformation, "Select Destination"
    With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    .Show

    If .SelectedItems.Count > 0 Then
        sPath = .SelectedItems(1)

' Filter Merchant ID

MERCHID = sh1.Cells(Rows.Count, "A").End(xlUp).Row

For i = 2 To MERCHID
    v = sh1.Cells(i, 1).Value
    If v <> "" Then
        st = st & v & ","
    End If
Next i
st = Mid(st, 1, Len(st) - 1)
Arr1 = Split(st, ",")

Sheets("VTR - DATA").Select
Sheets("VTR - DATA").AutoFilterMode = False
With Sheets("VTR - DATA").Range("A:Q")
    .AutoFilter Field:=2, Criteria1:=Arr1, Operator:=xlFilterValues
    .AutoFilter Field:=1, Criteria1:= _
    "<>SOR"
    End With


Set rng1 = Application.Intersect(ActiveSheet.UsedRange, Range("F:G,K:L"))
rng1.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
Sheets("CSV").Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial xlPasteValues
Application.CutCopyMode = False

Sheets("VTR - DATA").AutoFilterMode = False
Range("A1").Select

Answer 1

缺少End If：

If .SelectedItems.Count > 0

End With代表：

With Application.FileDialog(msoFileDialogFolderPicker)

之后它编译好了。（当然它没有运行，因为我没有名字的表格＆＃34; VTR - MASTER＆＃34;等等。）

如果VBA编辑器显示LEN等功能错误，请检查菜单工具 - 参考中缺少参考。有时缺少引用会使VBA混淆，即使内部函数也显示错误。

VBA Macro无法使用法语excel

1 个答案: