Проблема такая хотим вечером по работать через интернет. Тема такая мы установили программу "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