Люди добрые, может кто поможет разрешить и вот такую задачку:
Есть 2 ячейки, А1 и В1 , есть макрос
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
Sub f()
Dim nime As String, sh As String, pt As String, fname As String, cel As String
Dim k As Long, n As Long
nime = "2.xlsx"
sh = "Лист1"
pt = "C:\Documents and Settings\Administrator\Desktop\Склад\"
fname = pt & nime
k = 1
n = 1
If FileExists3(fname) = False Then
MsgBox ("Файл " & fname & " не существует.")
Else
On Error Resume Next
Do
cel = "A" & n
With Workbooks("Касса.xlsm").Sheets("Лист1")
.Cells(k, 1 ).Value = Getvalue(pt, nime, sh, cel)
.Cells(k, 2 ).Value = Getvalue(pt, nime, sh, "C" & n)
.Cells(k, 3 ).Value = Getvalue(pt, nime, sh, "D" & n)
.Cells(k, 4 ).Value = Getvalue(pt, nime, sh, "E" & n)
.Cells(k, 5 ).Value = Getvalue(pt, nime, sh, "F" & n)
End With
n = n + 1
k = k + 1
Loop Until Getvalue(pt, nime, sh, cel) = 0
If Err Then MsgBox "Ошибка!"
End If
End Sub
Private Function Getvalue(path, file, sheet, ref)
Dim Arg As String
Arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(ref).Range("A1").Address(, , xlR1C1)
Getvalue = ExecuteExcel4Macro(Arg)
End Function
Private Function FileExists3(fname) As Boolean
Set filesys = CreateObject("scripting.filesystemobject")
FileExists3 = filesys.fileexists(fname)
End Function
Private Sub MultiPage1_Change()
If Not EventsOff And Me.CheckBox1.Value = True Then
MsgBox "Page" & Me.MultiPage1.Value + 1
End If
End Sub
Терь бы на основе это всего хотелось сделать следующее.
После того, как макрос запустился в первый раз, он вписывает в ячейку А1 , номер последней заполненной строки в листе 2.xlsx , а в В1 будет формула, которая по мере заполнения строк в 2.xlsx будет менять номер строки.
1. Макрос обращается к ячейки А1 (допустим там 15) и к В1 (допустим там 30) И сравнение уже ведется в этом диапазоне тоесть от А15 до К30 . Думаю так времене на сравнение будет уходить меньше, после того как кол-во строк перевалит за 10-15 тыс.
