Запись данных в ячейку из другой книги

@Burnoutman · Регистрация: 05.04.2012

Author24 — интернет-сервис помощи студентам

Есть файл VB.xlsm,в нём я создаю макрос,который должен брать данные из другого файла и записывать в ячейку VB.xlsm. Взять получается,но записать в ячейку фала VB.xlsm ну никак. Не понимаю,что не так.

Visual Basic

Sub MyProgramm()
Dim paste As Integer, copy As Integer
copy = Application.Workbooks.Open("C:\Users\user\Desktop\XLSX\1.xlsx").Worksheets("Лист1").Range("A1")
ActiveWorkbook.Close
paste = Worksheets("Лист1").Range("Q2").Value = copy
ActiveWorkbook.Save
 
End Sub

@pashulka · 12.08.2019, 21:26

Visual Basic

paste =

нужно убрать

@tmash · 12.08.2019, 21:31

Привет!
Попробуйте:

Кликните здесь для просмотра всего текста

Visual Basic

Sub MyProgramm()
    Dim wb_Dest As Workbook
    Set wb_Dest = ActiveWorkbook
    
    Dim cell_Dest As Range
    Set cell_Dest = wb_Dest.Worksheets("Ëèñò1").Range("Q2")
 
    Dim wb_Sour As Workbook
    Set wb_Sour = Workbooks.Open("C:\Users\user\Desktop\XLSX\1.xlsx")
 
    wb_Sour.Worksheets("Ëèñò1").Range("A1").copy cell_Dest
 
    wb_Sour.Close
    wb_Dest.Save
End Sub

@Burnoutman · 12.08.2019, 22:39 **[ТС]**

Скажите,а как записать в ячейки данные,если в считываемых ячейках формат ячеек стоит разный?
Я пытаюсь взять диапазон

Visual Basic

1	copy = Application.Workbooks.Open("C:\Users\user\Desktop\XLSX\1.xls").Worksheets("Прил 1").Range("I24:N54")

I24 цифра,а некоторые вообще пустые и получаю ошибку: '13' Type mismatch

@tmash · 12.08.2019, 23:03

Сообщение от Burnoutman

формат ячеек стоит разный?

Visual Basic

1	copy As Variant

@Burnoutman · 13.08.2019, 10:54 **[ТС]**

Вопрос не по теме.

Кликните здесь для просмотра всего текста

Когда файл открывается,Excel спрашивает обновить ли связи,сохранить ли его,это жутко бесит,можно ли это отключить как-то?

Visual Basic

1	application.displayalerts=false

Это не подходит.

@pashulka · 13.08.2019, 20:16

Burnoutman,, Используйте второй(необязательный) аргумент у Open, т.е.

Visual Basic

1	Workbooks.Open(FileName, 0)

@Burnoutman · 15.08.2019, 10:56 **[ТС]**

А можно ли как-то сложить диапазон из ячеек?
Для этого нужен цикл или есть какой-то простой способ типа SUM()? Диапазон большой и там не все переменные являются цифрами,а если указывать по одной ячейке,то это очень долго.
Суть задачи состоит в том,что есть 6 книг с таблицами,таблицы большие и люди там налепили и тире и цифры и просто пустые ячейки,но нужно все цифры сложить между этими 6 книгами. Никак не могу въехать, как такое реализовать.Может можно с помощью if как-то отыскивать нужные ячейки?

@ArtNord · 15.08.2019, 11:03

Можно через массивы.

@pashulka · 15.08.2019, 12:29

Burnoutman, Если в ячейках диапазона нет значений ошибок, то можете использовать что-то вроде этого (первый столбец для примера)

Visual Basic

1	r = application.sum([a:a])

Visual Basic

1	r = worksheetfunction.sum(columns(1))

@Burnoutman · 16.08.2019, 18:36 **[ТС]**

Я выбрал массивы,но теперь застрял в оформлении под стандарты vba

Ругается на Next without for

Visual Basic

Sub MyProgramm()
 
Dim massiv() As Integer, i As Integer
 
For Each fe In Application.Workbooks.Open("C:\Users\user\Desktop\XLSX\1.xls", 0).Worksheets("Лист 1").Range("I24:N24")
If Application.WorksheetFunction.IsNumber(fe) Then
For i = 1 To fe
massiv(i) = fe
Next i
Else: MsgBox ("Пустая ячейка")
Next fe
 
Worksheets("Лист1").Range("G6:L36").Value = massiv(i)
ThisWorkbook.Saved = True
ActiveWorkbook.Close
ActiveWorkbook.Save
 
End Sub

Кликните здесь для просмотра всего текста

Без фигурных скобок,тут просто ад какой-то творится.

@ArtNord · 17.08.2019, 15:10

End if пропущен

@Burnoutman · 19.08.2019, 17:30 **[ТС]**

Опять застрял. Есть диапазон ячеек I24:N24 и я хочу вставить из этого диапазона в другой G6:L36 все данные по очереди проверяя,цифры там или нет. То есть,чтобы цифра из первой ячейки I24 вставилась в G6,а пока у меня получается,что каждая цифра вставляется во все ячейки. Диапазоны по количеству ячеек одинаковые.

Visual Basic

Sub MyProgramm()
 
Dim massiv As Variant
 
massiv = Application.Workbooks.Open("C:\Users\user\Desktop\XLSX\1.xls", 0).Worksheets("Прил 1").Range("I24:N54")
 
For Each fe In massiv
    If Application.WorksheetFunction.IsNumber(fe) Then
    ThisWorkbook.Worksheets("Лист1").Range("G6:L36").Value = fe
    Else: ThisWorkbook.Worksheets("Лист1").Range("G6:L36").Value = 0
    End If
Next fe
ThisWorkbook.Saved = True
ActiveWorkbook.Close
 
End Sub

@ArtNord · 19.08.2019, 17:53

По мне так, зря Вы здесь с массивами связались. Гораздо проще прописать проверку значения конкретной ячейки и по условию заполнить другую

@Burnoutman · 19.08.2019, 18:00 **[ТС]**

Сообщение от ArtNord

По мне так, зря Вы здесь с массивами связались. Гораздо проще прописать проверку значения конкретной ячейки и по условию заполнить другую

Я уже совсем запутался с этим vba. Вроде всё просто и кажется вот-вот и сделаешь,но постоянно упираюсь в какую-то мелочь. Я читал,что если переменной присвоить диапазон,то это уже получается двумерный массив. Как тогда обходится без массивов я не понимаю

Ячеек будет много,это пример только с небольшим количеством.А вообще у меня будет 6 таблиц по 30 ячеек в среднем. .

@ArtNord · 19.08.2019, 18:19

Попробуйте так:

Visual Basic

For Each fe In massiv
    If Not IsNumber(fe) Then massiv(fe) = 0
Next fe
ThisWorkbook.Worksheets("Лист1").Range("G6:L36") =massive

Добавлено через 1 минуту
Сейчас под рукой excel нет, в браузере написал. Результат не гарантирую, но смысл такой, в массиве перебрать все значения и нечисловые заменить на нуль и затем после окончания цикла массивом заполнить Range

@Burnoutman · 19.08.2019, 18:35 **[ТС]**

Сообщение от ArtNord

Попробуйте так:
Visual BasicВыделить код
1
2
3
4
For Each fe In massiv
* * If Not IsNumber(fe) Then massiv(fe) = 0
Next fe
ThisWorkbook.Worksheets("Лист1").Range("G6:L36") =massive
Добавлено через 1 минуту
Сейчас под рукой excel нет, в браузере написал. Результат не гарантирую, но смысл такой, в массиве перебрать все значения и нечисловые заменить на нуль и затем после окончания цикла массивом заполнить Range

'9' Subscript out of range

при massiv(fe)=0

Visual Basic

For Each fe In massiv
    If Not Application.WorksheetFunction.IsNumber(fe) Then massiv(fe) = 0
Next fe
ThisWorkbook.Worksheets("Ëèñò1").Range("G6:L36") = massive

@ArtNord · 19.08.2019, 18:54

А, ну да:

Visual Basic

a = 0
For Each fe In massiv
 
    If Not Application.WorksheetFunction.IsNumber(fe) Then massiv(a) = 0
a = a + 1
Next fe
ThisWorkbook.Worksheets("Лист1").Range("G6:L36") = massive

@Burnoutman · 19.08.2019, 22:01 **[ТС]**

Сообщение от ArtNord

А, ну да:

Ничего не изменилось.Ошибка та же.

Добавлено через 2 часа 20 минут
Я пример немного откорректировал и получил ошибку,что походу нельзя менять значения массива на ходу.

Visual Basic

Sub MyProgramm()
 
Dim massiv As Variant, a As Integer
 
a = 0
massiv = Application.Workbooks.Open("C:\Users\user\Desktop\XLSX\1.xls", 0).Worksheets("Лист1").Range("I24:N54")
For Each fe In massiv
 
    If Not Application.WorksheetFunction.IsNumber(fe) Then massiv = 0
a = a + 1
Next fe
ThisWorkbook.Worksheets("Лист1").Range("G6:L36") = massiv
 
ThisWorkbook.Saved = True
ActiveWorkbook.Close
 
End Sub

Ошибка '10'
This array is fixed or temporarily locked.

@ArtNord · 20.08.2019, 09:38

Burnoutman,
Так получилось:

Visual Basic

Sub MyProgramm2()
Dim massiv(), massiv2() As Variant
massiv = Worksheets("Лист1").Range("B2:G10").Value
AlRow = UBound(massiv) - LBound(massiv) + 1
AlCol = UBound(massiv, 2) - LBound(massiv, 2) + 1
 ReDim massiv2(AlRow, AlCol)
 
For a = 1 To AlRow
    For b = 1 To AlCol
    fe = massiv(a, b)
    If Not Application.WorksheetFunction.IsNumber(fe) Then massiv2(a, b) = 0 Else massiv2(a, b) = fe
    Next b
Next a
 
 
Range("I2:N10") = massiv2
End Sub

Добавлено через 1 минуту
Через заполнение второго массива

@ArtNord 371 / 269 / 93 Регистрация: 18.11.2015 Сообщений: 997
	19.08.2019, 17:53	14
	По мне так, зря Вы здесь с массивами связались. Гораздо проще прописать проверку значения конкретной ячейки и по условию заполнить другую 0

Запись данных в ячейку из другой книги

Решение

Решение

@Burnoutman 7 / 7 / 5 Регистрация: 05.04.2012 Сообщений: 149
	15.08.2019, 10:56 [ТС]	8
	А можно ли как-то сложить диапазон из ячеек? Для этого нужен цикл или есть какой-то простой способ типа SUM()? Диапазон большой и там не все переменные являются цифрами,а если указывать по одной ячейке,то это очень долго. Суть задачи состоит в том,что есть 6 книг с таблицами,таблицы большие и люди там налепили и тире и цифры и просто пустые ячейки,но нужно все цифры сложить между этими 6 книгами. Никак не могу въехать, как такое реализовать.Может можно с помощью if как-то отыскивать нужные ячейки? 0

@ArtNord 371 / 269 / 93 Регистрация: 18.11.2015 Сообщений: 997
	15.08.2019, 11:03	9
	Можно через массивы. 1

@ArtNord 371 / 269 / 93 Регистрация: 18.11.2015 Сообщений: 997
	17.08.2019, 15:10	12
	End if пропущен 1

@Burnoutman 7 / 7 / 5 Регистрация: 05.04.2012 Сообщений: 149
	19.08.2019, 18:00 [ТС]	15
	Сообщение от ArtNord По мне так, зря Вы здесь с массивами связались. Гораздо проще прописать проверку значения конкретной ячейки и по условию заполнить другую Я уже совсем запутался с этим vba. Вроде всё просто и кажется вот-вот и сделаешь,но постоянно упираюсь в какую-то мелочь. Я читал,что если переменной присвоить диапазон,то это уже получается двумерный массив. Как тогда обходится без массивов я не понимаю Ячеек будет много,это пример только с небольшим количеством.А вообще у меня будет 6 таблиц по 30 ячеек в среднем. . 0