Проблемы С Макросом В Excel

Тема в разделе "Остальные БД", создана пользователем Zoger, 15 авг 2014.

  1. Zoger

    Zoger New Member

    Регистрация:
    12 май 2013
    Сообщения:
    3
    Симпатии:
    0
    доброго времени суток господа. У меня макрос выдает ошибку, хотя на другом компьютере работает все отлично. (ошибка run time 1004)
    ну и сам код.
    Код (C++):
     ' Ïûòàåìñÿ óäàëèòü ïðåäûäóùèé :)
    '
    a = Shell("del " + mePathOut + meNameDBF, vbNormalFocus)
    'If Dir(mePathOut + meNameDBF) <> "" Then
    '
    Shell "del " + mePathOut + meNameDBF, 4
    ' Kill mePathOut + meNameDBF
    '
    End If
    'ñîõðàíÿåì êàê *.DBF ôàéë

    ActiveWorkbook.SaveAs Filename:=mePathOut + meNameDBF, FileFormat:=xlDBF4, CreateBackup:=False
    ActiveWorkbook.Close savechanges:=False

    MsgBox "Ôîðìà ýêñïîðòèðîâàíà." + vbCr + _
    "Òåïåðü ìîæíî ïðîâîäèòü îòïðàâêó ïîëó÷åííîãî ôàéëà " + meNameDBF + vbCr + _
    "ðàñïîëîæåííîãî â êàòàëîãå " + mePathOut, vbExclamation, "Âíèìàíèå!"

    Application.StatusBar = "Ãîòîâî"
    Workbooks(meNameBook).Activate
    Application.ScreenUpdating = True
    End Sub
    ошибка в строке
    Код (C++):
    ActiveWorkbook.SaveAs Filename:=mePathOut + meNameDBF, FileFormat:=xlDBF4, CreateBackup:=False
    З.Ы. там где непонятные знаки, это просто русские слова некорректно выводит
     

    Вложения:

    • 2.jpg
      2.jpg
      Размер файла:
      16,9 КБ
      Просмотров:
      5
  2. Zoger

    Zoger New Member

    Регистрация:
    12 май 2013
    Сообщения:
    3
    Симпатии:
    0
    Скорее всего проблема в том, что на компьютере где работает макрос стоит XP, а там где не работает 7ка, и разные версии Excel. В этом случае как решать проблему без переустановки систем или офиса?
     
  3. Zoger

    Zoger New Member

    Регистрация:
    12 май 2013
    Сообщения:
    3
    Симпатии:
    0
    можно тему закрывать, проблема решена через нежелательную переустановку офиса с 2010 на 2003. Всем спасибо
     
Загрузка...
Похожие Темы - Проблемы Макросом Excel
  1. aliaksandr89
    Ответов:
    3
    Просмотров:
    152
  2. Amfion
    Ответов:
    5
    Просмотров:
    147
  3. wowa
    Ответов:
    7
    Просмотров:
    404
  4. John_Tavarez
    Ответов:
    0
    Просмотров:
    345
  5. Валентин Амбер
    Ответов:
    11
    Просмотров:
    372

Поделиться этой страницей