Excel表格的数据,要放到共享盘给同事使用.
我想更新Excel表格的数据,有时候别人打开了,我再打开会提示别人已经打开,只能只读模式打开,无法更改.
为了解决这个问题,一个办法就是:我在自己原来的表格更新好数据,再把它放到共享盘里,另在表格名字后面加个日期以示区别和提示同示这份是最新的;另一个办法就是把数据源放在数据库存里,Excel表格只做界面,当打开表格的时候,数据从数据里下载,这样即可以更新数据,也可以下载最新数据.
那就用VBA代码实现吧:
Sub ado获取数据()
Dim conn As New ADODB.Connection
Dim sql As String
Dim j As Worksheet
Dim k As Integer
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\Fsld001\Documents\邱受文\测试\data\Database1.accdb"
'sql = "select * from [成品仓卷材库存表]"
sql = "select 订单编号,托盘号,卷号,长度,宽度,库存面积,系列,颜色,纹路,厚度,制单日期,仓位,仓区,记录时间,备注,异常,订单编号托盘号,新托盘纸 from [成品仓卷材库存表]"
k = 0
For Each j In Sheets
If j.Name = "Sheet1" Then
k = 1
End If
Next
If k = 0 Then
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Sheet1"
End If
Sheets("Sheet1").Range("A1:U20000").ClearContents
Sheets("Sheet1").Range("B2").CopyFromRecordset conn.Execute(sql)
Dim i As Integer
For i = 0 To conn.Execute(sql).Fields.Count - 1
Sheets("Sheet1").Cells(1, i 2) = conn.Execute(sql).Fields(i).Name
Next
conn.Close
End Sub