vlgpasha, для быстрого перевода с русского на ангийский функций включаете ридер, пишете формулу в ячейке на русском, после смотрите что ридер записал, там будет на английском
vlgpasha, название листа если пишется на русском то его не надо переводить хз как вы и куда формулу засовываете но в ВБА через запятую аргументы перечисляются
так же может настройка не точка а зпт, не ";" а ":"
1.находите строку с определенным значением, и копируете её в массив 2. проверяете уникальность 3. определяете последнею строку куда вставлять 4. вставляете. - перевести выше упомянутое в ВБА код для скорости
Использование функции переноса данных с одного листа на другой (VBA) в shared workbook, Перенос строки на другой лист с последующим удалением с листа-донора
Использование функции переноса данных с одного листа на другой (VBA) в shared workbook, Перенос строки на другой лист с последующим удалением с листа-донора
Использование функции переноса данных с одного листа на другой (VBA) в shared workbook, Перенос строки на другой лист с последующим удалением с листа-донора
так вроде работает, но я так и не понял причины(лень ваш код разбирать) просто обошел проблему
Код
Private Sub CommandButton2_Click()
Dim i As Long
With ListBox1
For i = Me.ListBox1.ListCount - 1 To 0 Step -1
If Me.ListBox1.Selected(i) Then
If i = Me.ListBox1.ListCount - 1 Then
Sheets("Info_list").Range("A" & i + 2).Resize(1, 7).Copy Sheets("Лист1").Range("A" & Rows.Count).End(xlUp).Offset(1)
Sheets("Info_list").Range("A" & i + 2).Resize(1, 7).Value = ""
j = j + 1
Else
j = j + 1
Sheets("Info_list").Range("A" & i + 2).Resize(1, 7).Copy Sheets("Лист1").Range("A" & Rows.Count).End(xlUp).Offset(1)
Sheets("Info_list").Range("A" & i + 2).Resize(1, 7).Delete
End If
End If
Next i
LoadListBox
MsgBox "'OK'", vbInformation
End With
End Sub
Использование функции переноса данных с одного листа на другой (VBA) в shared workbook, Перенос строки на другой лист с последующим удалением с листа-донора
Использование функции переноса данных с одного листа на другой (VBA) в shared workbook, Перенос строки на другой лист с последующим удалением с листа-донора
Расчет значения в ячейке по нескольким условиям в других ячейках, Как при выполнении нескольких условий "ЕСЛИ" заставить таблицу правильно выполнить расчет
The_Prist написал: плюс нормальный разработчик всегда в ответе за созданное и при возникновении любых ошибок бесплатно их исправляет без лишних вопросов.
Вот в этом и косяк этого ТЗ, я лично не знаю 100% способа обойти все возможные периодические правки , верстки, структуирования сайтов. А делать временное, которое посыплется из за изменения сайта в любой день, вероятность мала но она умножается на 30 сайтов ....и за это брать как за хороший продукт Программисты это знают и поэтому не берутся за это, авчина выделки не стоит.
да совершенно верно смена разрядности системы Решение:
Код
#If Win64 Then
Private Declare PtrSafe Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
#Else
Private Declare Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
#End If
Romuald написал: почему workbook(1),sheet(2), а не sheet(1) ?
очень часто нужно определять какой книги , т.к. без этого параметра береться активная книга, а в коде она может меняться, если возможно лучше указывать.
вот у меня работает добавил строку Sheets(1).Name = Sheets().Parent.Name но это только на первый лист файла донора
Код
'проходим по всем выбранным файлам
x = 1
While x <= UBound(FilesToOpen)
Set importWB = Workbooks.Open(Filename:=FilesToOpen(x))
Sheets(1).Name = Sheets().Parent.Name
Sheets().Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
importWB.Close savechanges:=False
x = x + 1
Wend
Все_просто написал: При желании указанную работу можно сделать за 2-3 часа (можно еще быстрее), но это будет быстрое и совсем не надежное решение,
мне кажется безумно сложное решение учитывающие много параметров то же не сильно надежно, сайт донор сменит формат сайта(очень частое явление), и все Очень сложные алгоритмы(те же скрипты), не смогут его переварить и вернемся к тому с чего начали. Или я неправ?( починка сложного механизма сложней починки простого механизма)
я как вариант предлагаю сделать очень простое что бы ТС при изменений сайтов мог сам внести нужные корректировки.
по теме зависания, были вири которых не один антивирус не видел.... сегодня был прикол простой системный процесс жрал 50% оперативки, развернул на состовляющие и выяснил что жрали неудачные попытки обновиться.