如何在excel中给数字excel批量文本转数字增加'使其能在sql语句中直接使用

来源：蜘蛛抓取(WebSpider) 时间：2014-11-01 01:34 标签： excel批量删除数字
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
在ASP中使用SQL语句
下载积分：1000
内容提示：
文档格式：TXT|
浏览次数：0|
上传日期： 06:18:17|
文档星级：
该用户还上传了这些文档
在ASP中使用SQL语句.TXT
官方公共微信'************************************
标准SQL查找代码：
*********************************************************
Sub SQL_Excel_()
'On Error Resume Next
'如果出现错误，忽略，然后执行下一行代码。
Application.ScreenUpdating = False '关闭屏幕刷新,成对出现，提高速度
Application.DisplayAlerts = False '关闭提示，,成对出现，避免出现提示框
'---------------------------------------
参数声明部分
------------------- ------------------- -------------------
Dim cnn, SQL$
'定义数据库连接和SQL语句
Set cnn = CreateObject(&adodb.connection&)
'创建数据库连接
Set rs = CreateObject(&adodb.recordset&)
'创建一个数据集保存数据
'---------------------------------------
设置数据库连接
------------------- ------------------- -------------------
cnn.Open &Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=& & ThisWorkbook.FullName
'将EXCEL文件作为数据库连接，实际并不打开EXCEL，
'Excel2003版本：cnn.Open &Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=& & ThisWorkbook.Path & &\数据表.xls&
'Excel2007版本：cnn.Open &Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=& & ThisWorkbook.Path & &\数据表.xlsx&
'带参数的连接字符串：cnn.Open &provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;HDR=IMEX=2';data source=& & ThisWorkbook.FullName
代表 Excel 档中的工作表第一行是标题栏，标题只能是一行，不能使多行，或者合并的单元格。
工作表第一行就是数据了，沒有标题栏，不使用栏位，则栏位就以f代表，第一列列名就是：f1,第二列列名：f2
IMEX 汇入模式
当 IMEX=0 时为“汇出模式”，这个模式开启的 Excel 档案只能用来做“写入”用途。
当 IMEX=1 时为“汇入模式”，这个模式开启的 Excel 档案只能用来做“读取”用途。
当 IMEX=2 时为“连結模式”，这个模式开启的 Excel 档案可同时支援“读取”与“写入”用途。
'Data Source
存储查询数据来源的工作薄名称，数据库路径为：数据表.xls
或本表：& ThisWorkbook.FullName
'---------------------------------------
设置SQL语句
------------------- ------------------- -------------------
SQL = &select * from
[数据表_1$A1:G100] where 姓名='马拉多纳'&
'在Sheet1表内查找列名为：姓名 中所有：马拉多纳 的数据。
'[XXX$A2:G100]的中括号和$为特别数据表标示符，XXX为Sheet名，A2:G100是选取的区域。
'SQL语句是一个字符串，双引号开头和结尾，列名两边无单引号，表示一个字符串：‘马拉多纳’，要用单引号扩上，数字就不用了。
AA=&马拉多纳&:
Sh=Sheet1:
SQL = &select * from
[& & Sh.name & “$] where 姓名=‘” & AA & “’
'---------------------------------------
SQL结果处理
------------------- ------------------- -------------------
Set rs = cnn.Execute(SQL) '将SQL语句获得的数据传递给数据集
Sheets(&结果&).Cells.ClearContents
'清理保存数据的区域
Sheets(&结果&).Range(&a2&).CopyFromRecordset rs
'将数据集粘贴到Excel中，左上角为A2，无列名。
'Sheets(&结果&).Range(&b2&).CopyFromRecordset cnn.Execute(SQL)
'可以不声明Y，直接使用
'关闭数据库连接
Set cnn = Nothing
'将CNN从内存中删除。
'--------------------------------------- ------------------------ ------------------- -------------------
Application.ScreenUpdating = True
Application.DisplayAlerts = True
'这就是最简单的EXCEL中SQL的应用 ，其他的都是SQL的运用了
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：13966次
排名：千里之外
原创：22篇
(4)(1)(1)(5)(18)(1)查看: 5426|回复: 1
阅读权限2UID281740函数0 关最后登录经验166 点在线时间1 小时VBA0 关分享记录好友技巧2 关相册主题段位0 段金币324 个积分166精华0帖子日志注册时间
函快1/综合1班
幼儿园中班, 积分 166, 距离下一级还需 34 积分
金币324 个积分166帖子
在excel中可以直接使用sql查询语句吗？如果可以怎么使用呢
阅读权限10UID35函数0 关最后登录经验2104 点在线时间462 小时VBA0 关分享记录好友技巧0 关相册主题段位5 段金币16343 个积分2148精华7帖子日志注册时间
金币16343 个积分2148帖子
bbwsj发布于
可用以下方法：1、Excel的OLE DB查询 步骤：数据》导入外部数据》导入数据》选择工作表并确定》编辑查询》命令文本窗口中输入SQL语句2、用在Excel的query窗体中查询步骤：数据》导入外部数据》新建数据库查询》选择Excel Files 并确定》选择工作表并确定》选择工作表及字段点取消》在Query窗体中点SQL按钮》SQL语句窗口中输入SQL语句》点将数据返回到Excel3、用VBA&语句&
阅读权限10UID35函数0 关最后登录经验2104 点在线时间462 小时VBA0 关分享记录好友技巧0 关相册主题段位5 段金币16343 个积分2148精华7帖子日志注册时间
初中1年级, 积分 2148, 距离下一级还需 352 积分
金币16343 个积分2148帖子
&&&本楼为最佳答案&&&
可用以下方法：1、Excel的OLE DB查询 步骤：数据》导入外部数据》导入数据》选择工作表并确定》编辑查询》命令文本窗口中输入SQL语句2、用在Excel的query窗体中查询步骤：数据》导入外部数据》新建数据库查询》选择Excel Files 并确定》选择工作表并确定》选择工作表及字段点取消》在Query窗体中点SQL按钮》SQL语句窗口中输入SQL语句》点将数据返回到Excel3、用VBA&语句&
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('/showimg.asp?BoardID=99&filename=023.jpg');}" onmousewheel="return imgzoom(this);" alt="" />
Powered by

我要回帖

更多关于 excel批量删除数字 的文章

 

随机推荐