Задача: из файла А (по определенному пути) перенести данные из определенных столбцов в определенные столбцы файла Б. Конвертнуть часть перенесенных данных в штрихкод.
Как решал: есть некая функция по конвертации. + написал макрос
Результат:
Получена ошибка 400 без объяснения о возникновении
Можете помочь с тем что делается макросом не там и не то? Откуда эта ошибка? И что она обозначает?
Приложен файл источник данных. К сожалению файл результат превышает 9 мегабайт даже при обрезанных данных.
Как решал: есть некая функция по конвертации. + написал макрос
| Код |
|---|
Sub Äàòà()
Dim wb, ab As Workbook
Dim sWb As String
Dim Cel As Long
Dim ai, bi, ci As Range
Dim sh As Worksheet
Set ab = ActiveWorkbook
sPath = ThisWorkbook.Worksheets(4).Cells(1, 1).Value
sWb = ThisWorkbook.Worksheets(4).Cells(1, 2).Value
Set wb = Workbooks.Open(sPath & "\" & sWb, False, True)
Set sh = wb.Worksheets(1)
With sh
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
ai = Range("d15:d" & lLastRow)
bi = Range("k15:k" & lLastRow)
ci = Range("y15:y" & lLastRow)
End With
ab.Worksheets(5).Range("A2:a" & lLastRow - 14) = ai
ab.Worksheets(5).Range("c2:c" & lLastRow - 14) = bi
ab.Worksheets(5).Range("d2:d" & lLastRow - 14) = ci
For Cel = 2 To lLastRow - 14
If Not Cells(Cel, 1) Like "" Then
Cells(Cel, 2) = Barcode.Code_128("A" & Cel)
End If
If Not Cells(Cel, 3) Like "" Then
Cells(Cel, 5) = Barcode.Code_128("d" & Cel)
End If
Next Cel
wb.Close False
End Sub |
Получена ошибка 400 без объяснения о возникновении
Можете помочь с тем что делается макросом не там и не то? Откуда эта ошибка? И что она обозначает?
Приложен файл источник данных. К сожалению файл результат превышает 9 мегабайт даже при обрезанных данных.
