Копирование ячеек из книги excel в таблицу access

[katrina-n]

Здравствуйте.

Подскажите, пожалуйста, как с помощью vba скопировать ячейки из книги excel в таблицу access.

и можно ли подключить построенную в excel диаграмму в форму access?

[R Dmitry]

Сообщение от katrina-n

Здравствуйте.

Подскажите, пожалуйста, как с помощью vba скопировать ячейки из книги excel в таблицу access.

и можно ли подключить построенную в excel диаграмму в форму access?

Добрый день, а из какой программы Вы хотите выполнить данное действо?

[katrina-n]

все действия выполняю из access

[R Dmitry]

Сообщение от katrina-n

все действия выполняю из access

через vba.

от вас необходим : файл xls, mdb и описание куда чего и по какому принципу вставлять

Дмитрий

[katrina-n]

в таблицу "Использованный лом2_Н":
в поле НЛомИсп: из листа книги excel sheet2 диапазон ячеек "А2:А8"
в поле КолИспЛм: диапазон ячеек того же листа "Q2:Q8"

вот по какому принципу-не знаю, не сталкивалась с подобной задачей, могу сказать, что экспорт из access и дальнейшая обработка происходит так:
oCmd.OpenQuery "Экспорт_Лома"
Dim oWbk As Workbook
Set oWbk = Workbooks.Open("C:\Users\Ека\Deskto p\Домашная база\бд.xls")

MsgBox ActiveSheet.Name
Sheets("Sheet2").Select
MsgBox ActiveSheet.Name
Range("A1:P1").Select
oWbk.Application.Run "Solver.xla!Auto_Open"
oWbk.Application.Run "Оптимизация_шихты"

oWbk.Close SaveChanges:=True

[R Dmitry]

файл xls будет закрыт?

[katrina-n]

файл xls будет закрыт?

будет открыт

[R Dmitry]

Option Compare Database

Sub impXls()
 Dim app As Excel.Application
 Dim strDOT As String, arr1(), arr2()
 '+++++++++++++++++++++++++++++++++++++++++
 'если шаблон в одной папке с access
    With Application.CurrentProject
     strDOT = .Path & "\" & "бд.xls"
    End With
'++++++++++++++++++++++++++++++++++++++++++
Set app = New Excel.Application
app.Visible = False
app.Workbooks.Open strDOT
With app.ActiveWorkbook.Sheets("Sheet2")
arr1 = .[a2:a8].Value: arr2 = .[q2:q8].Value
End With
app.ActiveWorkbook.Close
app.Quit
For i = 1 To UBound(arr1)
If arr2(i, 1) > 0 Then ' так как у Вас условие КолИспЛм >0
strsql = "INSERT INTO [Использованный лом2_Н] ( НЛомИсп, КолИспЛм )" _
& " SELECT " & arr1(i, 1) & " AS Выражение1, " & Replace(CDbl(arr2(i, 1)), ",", ".") & " AS Выражение2;"
'Debug.Print strsql
CurrentDb.Execute strsql
End If
Next
End Sub

файл и база в одной папке

[katrina-n]

Спасибо большое, R Dmitry!

я реализовала рабоче-крестьянским методом)

If Range("Q2") <> 0 Then
Me!НЛомИсп = Range("A2")
Me!КолИспЛм = Range("Q2")

Else
End If
If Range("Q3") <> 0 Then
DoCmd.GoToRecord , , acNext
Me!НЛомИсп = Range("A3")
Me!КолИспЛм = Range("Q3")
DoCmd.GoToRecord , , acNext
DoCmd.GoToRecord , , acPrevious
Else
End If
If Range("Q4") <> 0 Then
Me!НЛомИсп = Range("A4")
Me!КолИспЛм = Range("Q4")
DoCmd.GoToRecord , , acNext
DoCmd.GoToRecord , , acPrevious
Else
End If
If Range("Q5") <> 0 Then
DoCmd.GoToRecord , , acNext
Me!НЛомИсп = Range("A5")
Me!КолИспЛм = Range("Q5")
DoCmd.GoToRecord , , acNext
DoCmd.GoToRecord , , acPrevious
Else
End If
If Range("Q6") <> 0 Then
DoCmd.GoToRecord , , acNext
Me!НЛомИсп = Range("A6")
Me!КолИспЛм = Range("Q6")
DoCmd.GoToRecord , , acNext
DoCmd.GoToRecord , , acPrevious
Else
End If
If Range("Q7") <> 0 Then
DoCmd.GoToRecord , , acNext
Me!НЛомИсп = Range("A7")
Me!КолИспЛм = Range("Q7")
DoCmd.GoToRecord , , acNext
DoCmd.GoToRecord , , acPrevious
Else
End If
If Range("Q8") <> 0 Then
DoCmd.GoToRecord , , acNext
Me!НЛомИсп = Range("A8")
Me!КолИспЛм = Range("Q8")
DoCmd.GoToRecord , , acNext
DoCmd.GoToRecord , , acPrevious
Else
End If

Столкнулась с такой проблемой: в результате выполнения оптимизации в excel путем поиска решения, некоторые компоненты искомого вектора x оказались очень малы и не реагируют на условие If Range("Q8") <> 0, вы не знаете как задать необходимую точность?

[R Dmitry]

Сообщение от katrina-n

Спасибо большое, R Dmitry!

я реализовала рабоче-крестьянским методом)

Столкнулась с такой проблемой: в результате выполнения оптимизации в excel путем поиска решения, некоторые компоненты искомого вектора x оказались очень малы и не реагируют на условие If Range("Q8") <> 0, вы не знаете как задать необходимую точность?

это форум по access , к сожалению я с поиском решения особо не сталкиваюсь
зы....
мой код работает и на закрытом, и на открытом файле

но дело Ваше, если нравиться Ваш код используйте.

еще одно зы....
таблица без ключа это плохо