[请教提前批志愿怎么填才好]专家建议，考生填报志愿要量体裁衣，对于高分段的优秀考生，可以选择研究型的综合大学；对于本科段的考生，建议优先考虑专业，再根据分数决定学校；对于准备接受职业教育的考生，最好是以专...+阅读
ALT+F11，打开VBE，插入一个模块，把以下代码复制进去：
Sub dosql(sql, a As Range)
Dim Conn As Object
Set Conn = CreateObject(＂ADODB.Connection＂)
Set rst = CreateObject(＂ADODB.Recordset＂)
PathStr = ThisWorkbook.FullName
Select Case Application.Version * 1
Case Is <= 11
strConn = ＂Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=＂ & PathStr
Case Is >= 12
strConn = ＂Provider=Microsoft.ACE.OLEDB.12.0;Data Source=＂ & PathStr & ＂;Extended Properties=＂＂Excel 12.0;HDR=YES＂＂;＂＂＂
End Select
Conn.Open strConn
Set rst = Conn.Execute(sql)
If VBA.InStr(sql, ＂select＂) > 0 or VBA.InStr(sql, ＂Select＂) > 0 Then
With a.Parent
For i = 0 To rst.fields.Count - 1
.Cells(1, a.Column + i).EntireColumn.ClearContents
.Cells(1, a.Column + i) = rst.fields(i).Name
Next
End With
a.Offset(1).CopyFromRecordset rst
For i = 0 To rst.fields.Count - 1
a.Parent.Cells(1, a.Column + i).EntireColumn.AutoFit
Next
End If
Conn.Close
End Sub
Public Sub t()
'sql = ＂这里写你的查询语句＂
dosql sql, [E1]
End Sub
1、记得运行代码前要保存工作簿
2、查询语句中，表名是[工作表名$]这样的格式
3、dosql sql, [E1]中的E1，就是要放查询结果的区域左上角那个单元格。
以下为关联文档：
想为室友请教大家都是怎么脱单的交友网站 交友网站信息量大，人员更新快，经常在交友网站上看看有没有合适的，同时把自己的资料挂上去，成功的机率就大些。 亲戚介绍 如果自己交际面窄，请亲戚朋友帮忙，也是一个好方...
请教用象征手法写一篇植物的作文 300字急啊不是吧！我也在找这个耶！ 我把我写的给你吧———— 树木是美的，我赞美树木。树木在大地上站立，使天空繁荣，使大地生动，使人心充满感动。我相信，一个树木葱茏的国家是幸福的，一个无树...
请教饲料混合均匀度测定方法使用甲基紫测饲料混合均匀度，以甲基紫为示踪物，混入饲料中，最后检测吸光度，计算吸光度的变异系数，我国行业法规《饲料企业生产许可条件》和《混合型饲料添加剂生产许可条件》明确...
请教2道投资题目1 A 2 B 两题都是关于权益法下投资单位对投资收益的确认问题。 1.投资收益的确认是以按公允价值调整被投资单位净的利润，再乘以份额来确认投资收益. 对于折旧，按公允价值本年...
请教一下会计从业试题会计基础的大纲考试基本不变，因为他是最基础的课程，我根据情况说一下，我讲课的时候，同学们听讲都很认真的，我说一下会计入门。首先会计从业资格证是从是会计工作人员的上岗证，没有他你讲不能...
我要去面试想请教你那家公司面试难吗？主要问那些问题展开全部 从我负责单位人力资源招聘的角度给你提出几点建议，供你参考， 1、带多几份简历前往面试，没有比当被要求提供多一份简历而你却没有更能显示你缺乏准备的事了。带多几份...
感慨生活的经典语句学会适时地放弃，是一种理智的自我调整，是人生目标的再次确立；学会适时地放弃，才可以使负重的人生得到暂时的休息，使整个身心沉浸在一种轻松悠闲的宁静之中；学会适时地放弃，便可以摆...
关于去澳洲读金融硕士的问题请教大大们这个方法可行。 先选master of commerce下的finance方向。 读完1.5年毕业后 申请master of fiance by research的读2年。貌似后面再选个by course的课没有意义啊。。。。 为...
找几句经典的语句1) I love you not because of who you are, but because of who I am when I am with you. 我爱你，不是因为你是一个怎样的人，而是因为我喜欢与你在一起时的感觉。 2) No man...
