查看: 3688|回复: 12|
在线时间15 小时经验104 威望0 性别女最后登录注册时间阅读权限20UID747859积分104帖子精华0分享0
EH初级, 积分 104, 距离下一级还需 246 积分
积分排行3000+帖子精华0微积分0
如题，我最近做这一个系列的表格花了好多时间，希望各位帮我解决一下，唉，头都搞大了。
猜你喜欢看
在线时间1387 小时经验2362 威望2 性别男最后登录注册时间阅读权限70UID503726积分2412帖子精华0分享2
EH铁杆, 积分 2412, 距离下一级还需 788 积分
积分排行419帖子精华0微积分0
请上传附件以说明问题
在线时间15 小时经验104 威望0 性别女最后登录注册时间阅读权限20UID747859积分104帖子精华0分享0
EH初级, 积分 104, 距离下一级还需 246 积分
积分排行3000+帖子精华0微积分0
好的，上传一个附件～～
打开《工具列表》这一个文件，然后点击“客户信息表”，它就链接到了一个文件，“客户姓名”那一列要链接300多个客户的信息，点击客户姓名就链接到相关客户的那一个资料，目前我先想解决一下怎样建立这三百多个链接的办法，假设这三百多个客户的信息表格已经建立好了。
09:42 上传
下载次数: 44
55.99 KB, 下载次数: 44
在线时间15 小时经验104 威望0 性别女最后登录注册时间阅读权限20UID747859积分104帖子精华0分享0
EH初级, 积分 104, 距离下一级还需 246 积分
积分排行3000+帖子精华0微积分0
大家帮帮忙了，不要沉下去了，回复一下
在线时间104 小时经验81 威望0 性别男最后登录注册时间阅读权限20UID417082积分81帖子精华0分享0
EH初级, 积分 81, 距离下一级还需 269 积分
积分排行3000+帖子精华0微积分0
用超链接和查找引用函数吧
在线时间15 小时经验104 威望0 性别女最后登录注册时间阅读权限20UID747859积分104帖子精华0分享0
EH初级, 积分 104, 距离下一级还需 246 积分
积分排行3000+帖子精华0微积分0
原帖由 lichunhcn 于
09:56 发表
用超链接和查找引用函数吧
请问能补充步骤吗？？
我不晓得用～～
在线时间104 小时经验81 威望0 性别男最后登录注册时间阅读权限20UID417082积分81帖子精华0分享0
EH初级, 积分 81, 距离下一级还需 269 积分
积分排行3000+帖子精华0微积分0
可是从你上传得附件，还是无从下手哦
在线时间15 小时经验104 威望0 性别女最后登录注册时间阅读权限20UID747859积分104帖子精华0分享0
EH初级, 积分 104, 距离下一级还需 246 积分
积分排行3000+帖子精华0微积分0
原帖由 lichunhcn 于
10:02 发表
可是从你上传得附件，还是无从下手哦
请问还需要什么内容呢？？
在线时间104 小时经验81 威望0 性别男最后登录注册时间阅读权限20UID417082积分81帖子精华0分享0
EH初级, 积分 81, 距离下一级还需 269 积分
积分排行3000+帖子精华0微积分0
你要实现的时单元格与工作表的连接还是单元格之间的链接？
其实在你附件的目录里已经建立有链接的了，你要做客户与客户资料表的链接，那你要提供一些例子吧。
在线时间15 小时经验104 威望0 性别女最后登录注册时间阅读权限20UID747859积分104帖子精华0分享0
EH初级, 积分 104, 距离下一级还需 246 积分
积分排行3000+帖子精华0微积分0
原帖由 lichunhcn 于
10:09 发表
你要实现的时单元格与工作表的连接还是单元格之间的链接？
其实在你附件的目录里已经建立有链接的了，你要做客户与客户资料表的链接，那你要提供一些例子吧。
是要实现单元格与表格的链接
是已经有链接了，就是要达到那样的效果，因为一个一个的做太麻烦，想寻求一个快点的办法。谢谢～
金牌优秀会员
金牌优秀会员奖章No.1
优秀会员奖章No.1
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&查看: 6650|回复: 16|
在线时间1981 小时经验773 威望0 最后登录注册时间阅读权限30UID1354876积分773帖子精华0分享0
EH中级, 积分 773, 距离下一级还需 327 积分
积分排行1396帖子精华0微积分0
本帖最后由 byhyxb 于
23:34 编辑
如何将一个工作簿内一工作表（与簿内其它工作表间有公式关系）复制到另一个工作簿内时，使公式不与原工作簿有链接，自动与新工作簿内的工作表形成类似公式关系。
& && && && && && && && && && && && & 谢谢！
23:34 上传
下载次数: 48
3.73 KB, 下载次数: 48
学习中......
在线时间6174 小时经验48662 威望30 性别男最后登录注册时间阅读权限150UID151593积分49062帖子精华3分享2
管理以下版块
142966财富
积分排行1帖子精华3微积分0
建议楼主压缩上传Excel问题附件并加以说明或做出模拟结果，以便大家了解、测试和解答。(编辑已发贴即可补充上传附件)
如何发表新话题和上传附件：
发帖的技巧：
EH技术论坛的最佳学习方法：
在线时间1981 小时经验773 威望0 最后登录注册时间阅读权限30UID1354876积分773帖子精华0分享0
EH中级, 积分 773, 距离下一级还需 327 积分
积分排行1396帖子精华0微积分0
复制工作表如何使公式不带链接
复制工作表如何使公式不带链接
23:29 上传
下载次数: 33
3.73 KB, 下载次数: 33
在线时间250 小时经验1751 威望0 性别男最后登录注册时间阅读权限50UID7701积分1751帖子精华0分享0
EH高级, 积分 1751, 距离下一级还需 249 积分
积分排行610帖子精华0微积分0
复制单元格公式文本，不要直接复制单元格
在线时间1981 小时经验773 威望0 最后登录注册时间阅读权限30UID1354876积分773帖子精华0分享0
EH中级, 积分 773, 距离下一级还需 327 积分
积分排行1396帖子精华0微积分0
liujun 发表于
复制单元格公式文本，不要直接复制单元格
如何批量复制公式文本呢？& &谢！
学习中......
在线时间250 小时经验1751 威望0 性别男最后登录注册时间阅读权限50UID7701积分1751帖子精华0分享0
EH高级, 积分 1751, 距离下一级还需 249 积分
积分排行610帖子精华0微积分0
byhyxb 发表于
如何批量复制公式文本呢？& &谢！
你每一个单元格公式都是不同的吗，不能向下复制吗
=IF(&Excel+函数+VBA&&&“存在&,“我想念Excel&,&我爱Excel&)
在线时间1981 小时经验773 威望0 最后登录注册时间阅读权限30UID1354876积分773帖子精华0分享0
EH中级, 积分 773, 距离下一级还需 327 积分
积分排行1396帖子精华0微积分0
liujun 发表于
你每一个单元格公式都是不同的吗，不能向下复制吗
谢谢！是的每个单元格公式不同。有其它方法吗？
学习中......
在线时间250 小时经验1751 威望0 性别男最后登录注册时间阅读权限50UID7701积分1751帖子精华0分享0
EH高级, 积分 1751, 距离下一级还需 249 积分
积分排行610帖子精华0微积分0
发个附件吧，
在线时间1981 小时经验773 威望0 最后登录注册时间阅读权限30UID1354876积分773帖子精华0分享0
EH中级, 积分 773, 距离下一级还需 327 积分
积分排行1396帖子精华0微积分0
本帖最后由 byhyxb 于
07:43 编辑
liujun 发表于
发个附件吧，
如何复制公式不带链接
07:42 上传
下载次数: 36
19.25 KB, 下载次数: 36
学习中......
在线时间250 小时经验1751 威望0 性别男最后登录注册时间阅读权限50UID7701积分1751帖子精华0分享0
EH高级, 积分 1751, 距离下一级还需 249 积分
积分排行610帖子精华0微积分0
byhyxb 发表于
如何复制公式不带链接
你的公式不会是一个一个做的吧，为没规律吗。我没看出规律，但我觉得你应该不是一行一行输的。
如果复制，就会出连接”[工作表1.xls]“，将其替换为空就可以了
=IF(&Excel+函数+VBA&&&“存在&,“我想念Excel&,&我爱Excel&)
积分≥4700即可申请
最佳管理者
最佳管理者奖章No.1
金牌优秀管理者
金牌优秀管理者勋章No.1
金牌优秀管理者
金牌优秀管理者勋章No.2
优秀管理者
优秀管理者勋章No.1
优秀管理者
优秀管理者勋章No.2
金牌优秀会员
金牌优秀会员奖章No.1
优秀会员奖章No.1
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&This site in other countries/regions:VB连接EXCEL文件，新建、保存、读写EXCEL文件
首先需要添加COM引用：
& & Microsoft Excel 11.0 Object
然后申明引用：
& & Dim xlApp As
Microsoft.Office.Interop.Excel.Application
'定义EXCEL类&
& & Dim xlBook As
Microsoft.Office.Interop.Excel.Workbook
'定义工件簿类&
& & Dim xlsheet As
Microsoft.Office.Interop.Excel.Worksheet
'定义工作表类&
实例代码：
Dim db As String
& Dim num As Integer
& Dim File_New_flag As Integer
& Dim i, j As Integer
& db = Application.StartupPath &
"\综合数据采集仪数据库.xls"
& File_New_flag = 0
& On Error Resume Next
& If Dir(db) = "" Then
& & & xlApp =
New Microsoft.Office.Interop.Excel.Application
& & & xlApp =
CreateObject("Excel.Application")
xlApp.Visible = False
& & & xlBook =
xlApp.Workbooks.Add
& & & xlsheet =
xlBook.Worksheets(1)
xlsheet.Name = "设计工作表3"
& & & xlsheet =
xlBook.Worksheets(2)
xlsheet.Name = "设计工作表2"
& & & xlsheet =
xlBook.Worksheets(3)
xlsheet.Name = "设计工作表1"
xlsheet.Cells(1, 1) = "abc"
'xlApp.Cells(1, 1) = "123"
xlBook.SaveAs(db)
xlBook.Close()
xlApp.Quit()
File_New_flag = 1
& If Dir(db) = "" Or Err.Number
MsgBox("数据库创建失败！", 48) && vbYes
& & Exit Sub
'''''''''''''''''''''''''''''''''''''''''''
& xlApp = New
Microsoft.Office.Interop.Excel.Application
& xlApp = CreateObject("Excel.Application")
& xlApp.Visible = False
'设置EXCEL可见&
& xlBook =
xlApp.Workbooks.Open(Application.StartupPath &
"\综合数据采集仪数据库.xls") '打开EXCEL工作簿&
& num = xlBook.Sheets.Count
& If num &= 0 Then
MsgBox("Excel无工作表！")
File_New_flag = 1 Then
& & xlsheet =
xlBook.Worksheets(3)
& & xlsheet.Name = "设计工作表3"
& & For i = 1 To 100 Step 1
& For j = 1 To 10 Step 1
xlsheet.Cells(i, j) = i + j
& & Next i
& & & Else
& & File_New_flag = num + 1
& & xlBook.Sheets.Add()
& & xlsheet =
xlBook.Worksheets(1)
& & xlsheet.Name = "设计工作表"
& File_New_flag
& & For i = 1 To 100 Step 1
& For j = 1 To 10 Step 1
xlsheet.Cells(i, j) = i + j
& & Next i
xlBook.SaveAs(db)
xlBook.Close()
xlApp.Quit()
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。