将特定单元格从Excel文件导入MS Access

时间:2018-03-16 20:16:26

标签: excel vba ms-access

我们目前正在使用将数据输出到Excel电子表格的模拟包。输出无法定制到符合公司标准的级别。好消息是电子表格的格式是锁定的。我需要的数据位于(15)遍布电子表格的不同单元格中。 (如果他们在一个专栏中,那就很容易了)

我想在MS Access中编写一个VB应用程序来打开文件,查看15个不同的单元格,然后将这些单元格中的数据导入表格中的特定字段。从那里我可以做任何我想要的数据。虽然我对自己的访问能力相当自信,但是我很难想出代码来做我想做的事情

我需要的15个数据位于单元BU22,X38,X41,AX38,AX41,BW38,Q49,Q54,Q61,Q69,Q74,BP68,V86,BH81和& BI84

根据我的理解,我可以像这样使用ws.Range方法:

Dim strSecondValue as String
strSecondValue=ws.Range ("BU22")

从excel单元格到MS Access表格获取该信息非常困难。

这里有任何帮助吗?

2 个答案:

答案 0 :(得分:1)

可以通过几种不同的方式查询外部数据源。

loss = \sum_i R_i(y_i\log h(x_i) + (1-y_i)\log (1-h(x_i)))

指定字段名称:

tf.nn.sparse_softmax_cross_entropy_with_logits(logits, labels)

https://msdn.microsoft.com/en-us/library/bb177907

答案 1 :(得分:0)

你可以这样做。

Sub ImportDataFromRange()
' Delete any previous access table, otherwise the next line will add an additional table
DoCmd.DeleteObject acTable, "ExcelRange"
' Import data from Excel using a static range
DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, "ExcelStaticRangeData", "C:\your_path_here\ExcelSample.xls", True, "Sheet1!A1:J20"
End Sub    

Private Sub Command0_Click()
   ImportDataFromRange
End Sub