Страницы: 1
RSS
Работа макроса через интернет
 
Проблема такая хотим вечером по работать через интернет. Тема такая мы установили программу "Hamachi", настроил доступ через интернет к папке на компьютер, который находится в офисе, разрешение на создание и переименование есть, с этим проблем нет, проблема в том что когда запускаем Excel файл, запускаем работу макроса то он ищет файл на моем компьютере чтобы выполнить в него запись, а как прописать путь, чтобы он вносил изменения через мой компьютер на компьютер который подключен через интернетhttp://hamachi-pc.ru/
Код
onst DB_FULLNAME = "C:\tmp\База данных.xlsm"
 
Sub УшлаНаБазу()
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
     
    Dim sName As String
    sName = fso.getfilename(DB_FULLNAME)
     
    Dim bClose As Boolean
    Dim wb As Workbook
    On Error Resume Next
        Set wb = Workbooks(sName)
    On Error GoTo 0
    If wb Is Nothing Then
        Set wb = Workbooks.Open(DB_FULLNAME, False, False)
        bClose = True
    End If
     
    Dim shI As Worksheet: Set shI = Workbooks("Отправка.xlsm").Worksheets("Инф")
    Dim shZ As Worksheet: Set shZ = wb.Worksheets("Заявки")
      
    Dim a As Variant
    a = shI.Range("A8:J8")
      
    Dim y As Long
    If a(1, 1) <> "" Then
        On Error Resume Next
            y = WorksheetFunction.Match(a(1, 1), shZ.Columns(1), 0)
        On Error GoTo 0
    End If
      
    If y > 0 Then
        shZ.Cells(y, 1).Resize(1, UBound(a, 2)).Value = a
    End If
     
    If bClose Then
        Application.DisplayAlerts = False
        wb.Close True
        Application.DisplayAlerts = True
    End If
End Sub
Изменено: Lerik2020 - 16.01.2020 19:17:25
 
Здравствуйте, Попробуйте через Dropbox, а не Hamachi
 
Цитата
Lerik2020 написал:
настроил доступ через интернет к папке на компьютер
Как выглядит этот доступ? Можете ли и если да то как добираетесь до файла в проводнике?

Цитата
Настя_Nastya написал:
Попробуйте через Dropbox, а не Hamachi
Программы совершенно разные  по назначению и применения.
По вопросам из тем форума, личку не читаю.
Страницы: 1
Наверх