怎么把excel的文件在不打开的情况下复制数据到此工作簿

自由！自在

fzxba 发表于 2023-3-30 11:18

就类似这种，迂回一下，当鼠标在姓名单元格上时候J1显示鼠标所在单元格内容，然后根据J1单元格的姓名搜索B-L之间的数据等于AM-AP这块的，但是我只会在同一个表格这样弄，夸表了我弄不出了

寒心绝情

ADO 方法连接

Sub test()
Dim co As Object, rs As Object
Dim i As Integer, sqlstr As String
Dim st As Worksheet
On Error GoTo x
Set co = CreateObject("ADODB.connection")
Set rs = CreateObject("ADODB.Recordset")
co.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.Path & "\分数数据.xlsx"
sqlstr = "select * from [Sheet1$a2:d10000]"
rs.Open sqlstr, co

Range("b5:e10000").Clear
For i = 1 To rs.Fields.Count
  Cells(5, i + 1).Value = rs(i - 1).Name
Next i
Range("b6").CopyFromRecordset rs

Exit Sub
x:
MsgBox Err.Description
End Sub

fzxba

自由！自在 发表于 2023-3-30 16:06
就类似这种，迂回一下，当鼠标在姓名单元格上时候J1显示鼠标所在单元格内容，然后根据J1单元格的姓名搜索 ...

我可能实现不了。

自由！自在

fzxba 发表于 2023-3-30 14:07

哈哈。好尴尬，可能是右键以前不习惯吧，但是用了几下后发现右键确实比较方便的，太谢谢了

自由！自在

fzxba 发表于 2023-3-30 11:18

End If

   strPicture = picFolder & ar(1, 3) & "all.jpg"

   If Fso.FileExists(strPicture) Then

     Set Cel = .Range("B13")

     Set Shp = .Shapes.AddPicture(strPicture, msoFalse, msoCTrue, Cel.Left +1, Cel.Top + 1, 230, Cel.Height * 16 - 1)

     Shp.Placement = xlMoveAndSize

End If

这个想裁剪照片要怎么弄，我平时的裁剪输进去都是错误的

还有就是为什么在员工登记表中插入表单控件只要运行了别的这些控件都会消失？

自由！自在

自由！自在 发表于 2023-3-31 10:43
End If   strPicture = picFolder & ar(1, 3) & "all.jpg"   If Fso.FileExists(strPicture) Then     Se ...

我找到方法了Shp.PictureFormat.CropTop

自由！自在

fzxba 发表于 2023-3-30 11:18

大神这个能设置鼠标选中的批量打印吗？或者别的方式批量打印也可以