2、右键菜单法:先Ctrl+A或者点击最左上角的单元格区域全选,再单击鼠标右键,取消隐藏即可。
3、格式菜单法:先Ctrl+A或者点击最左上角的单元格区域全选,再单击菜单:“格式”-“行”-“取消隐藏”,即可。
4、快捷键法:先Ctrl+A全选,再Ctrl+Shift+9取消行隐藏;如果要取消列隐藏按Ctrl+Shift+0,即可。
5、VBA代码法:ALT+F11打开VBE编辑器,新建一个模块1,粘贴如下代码: Option Explicit Sub qxyx() Rows(1).EntireRow.Hidden = False End Sub 运行,即可。
慢慢看哦;正好我也有点兴趣,就说一下吧,过程中你肯定会遇到很多问题,我当时也一样,有问题在问我,那开始吧;
1、随便你在EXCEL中建立一个模块或窗体,输入以下代码:
Sub aa()Dim cn As New ADODB.Connection'必须语句,定义一个对象,连接用的
Dim rs As New Recordset'必须语句,定义一个对象,查询用的
Str1 = "select * from [zd_spzl]"'这个不说了吧,SQL的语句
strcn = "Provider=sqloledbDatabase=southernUid=saPwd=123456data source=127.0.0.1,1433"
’这里要注意了,我只改了数据库名,IP要你自己改;我是本地连接;所以用了IP为127.0.0.1
cn.Open strcn
rs.Open Str1, cn
'上面两句为查寻与连接
Dim i
For i = 1 To rs.Fields.Count
Cells(1, i) = rs.Fields(i - 1).Name’FIELDS是从0开始的,所以这里要-1
'这里是为了把表中的字段取下来;放到第一行
Range("a2").CopyFromRecordset rs
'这里是把数据一行,一行的放到EXCLE中;
Next i
重要注明:
1、代码执行下要在VB中引用,图片这个:
2、数据要开启可远程连接,打开1433端口;附件中有方法与教程,都是我以前测试过的,肯定可用的;收你5元,哈哈!
可以直接扣我,30687724
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)