&&&&&&&&&&光辉岁月-特种兵王-2&
请至少保留一件商品
版 次：1页 数：332字 数：350000印刷时间：开 本：16开纸 张：胶版纸印 次：0包 装：平装
　　特种兵王再次出击！　　李建林率特种兵重出江湖，好男儿联手打造光辉岁月！　　百炼成钢，方能铸就利剑；摸爬滚打，方显男儿本色。　　剑锋所指，所向披靡，剑过必留痕。&
　　加入猎人部队后，特种兵孟军英勇作战。表现良好，面对死亡的危险他没有退缩，也没有害怕，数次与死神擦肩而过，在血与火的考验之下带领兄弟们完成了一个又一个艰难任务：他流过血，负过伤，但对国家的忠诚却丝毫未减，在服役满五年后，面对去留抉择……
　　李建林，网名：新童。籍贯云南元谋，80后。喜欢自由，喜欢写作，喜欢漫无目的的生活。已出版作品：《特种兵》系列、《佣兵之血染征衣》、《狙击手》、《西南大追捕》、《佣兵启示录》、《热血英雄》、《猎人特战队》、《楚鹰》系列等。
02　利剑行动03　破袭之战04　联合演练05　生死侦察06　安保任务07　基地转移08　突击海盗09　幽灵潜艇10　实战对抗11　登岛营救12　雪地训练13　野外考验14　冰河脱险15　狼牙追踪
01　狙杀任务02　利剑行动03　破袭之战04　联合演练05　生死侦察06　安保任务07　基地转移08　突击海盗09　幽灵潜艇10　实战对抗11　登岛营救12　雪地训练13　野外考验14　冰河脱险15　狼牙追踪16　沙漠作战17　摧毁战机18　惊险逃生19　猎人军魂20　丛林潜伏21　意外伏击22　假的情报23　古墓反攻24　暂别部队25　创业体验26　军心刻骨27　回归基地
店铺收藏成功
*竞品价格：
*网址链接：
联系方式：您现在的位置： >>
[藏品编号：]& 回流老铜器带款挂盘重2.1斤
参考价：760 元报价次数：0&
运费：卖家承担运费，退货单程运费由买家支付。
品相：全品是否包退：承诺货物包退
上传日期：销售状态：待售
藏品年代：中华民国所在地：其它亚洲
收藏次数：0次浏览次数：次
联系卖家：
古币：&&&&&&
古币等级：
卖家信誉值：
卖家好评率：
实名认证：
藏品尺寸/规格：高1.6厘米长：21.5厘米宽17.2厘米
物品尺寸：高1.6厘米长21.5厘米宽：17.2厘米
卖家最新上传的集市藏品
参考价：1500元
参考价：1500元
参考价：330元
参考价：330元
参考价：350元
参考价：390元
汇款方式(中华古玩网指定汇款账户)
帐号：开户名：上海乐拍文化传播有限公司
开户行：中国工商银行上海市番禺路支行帐号：1 开户名：梅群
开户行：中国招商银行上海市延安支行帐号：08 2006开户名：梅群
开户行：中国建设银行上海市卢湾支行帐号：94 开户名：梅群
开户行：中国农业银行上海市分行第二营业部帐号：开户名：梅群
开户行：中国邮政储蓄银行上海市安顺路储蓄所帐号：5092552开户名：梅群
服务热线：&&E-mail：&&
Copyright &
版权所有&&
页面执行时间：0.043秒 12:44:36EXECL 单工作簿超过65532是否有解决方法？_百度知道
EXECL 单工作簿超过65532是否有解决方法？
怎么处理导出的表从某系统中导出数据生成表格，有10W数据，保证数据完整性，但是EXECL好像只支持65532条记录
提问者采纳
xcel是电子表格，不是专业的数据库管理软件，建议使用access，想处理这类型的数据。妥协的办法是在excel里分两页或两个文件存放
来自团队：
其他类似问题
为您推荐：
execl的相关知识
其他3条回答
21.用2007以上版本，支持10W行.可以把数据放在多列中，不一定非要在一列中
excel2007及以上版本支持104万行
标记。学习下。
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁问： 5 每月8号来大姨妈，跟老公在10/29号爱爱的。没有避孕，没射。在11/1号早上吃的金毓_百度宝宝知道查看: 818|回复: 19
添加超链接问题？到达65532行就出错了！
阅读权限10
在线时间 小时
各位大侠好，小弟，最近碰到一个问题，已经困扰好长时间。问题如下：
本工作簿有10多个sheet，本人写了一个宏，为每个sheet的第二列name创建一个导航页sheet，名为index页，在程序运行到65532时，程序出错，错误码未：1004
& & --------------------------------------------------------------------------------& &&&超链接的代码如下
& && &With Sheets(&index&)
& && && &For Hyper_Nb = 1 To sum_row - 1
& && &&&'& &&&Sheets(&Index&).Activate
& && && && & .Cells(Position1 + Hyper_Nb, NAME_NB).Select
& && && && & CBL_name = .Cells(Position1 + Hyper_Nb, NAME_NB)
& && && && &
& && && && & Hyper = CStr(Hyper_Nb + 1)
& && && && &Sheets(&index&).Hyperlinks.Add Anchor:=Selection, Address:=&&, SubAddress:=sheet_name & &!B& & Hyper, TextToDisplay:=CBL_name
& && && && &&&
& && && &Next
& && &End With
------------------------------------------------------------------------------------
阅读权限10
在线时间 小时
excel表见附件，代码在模块1中，请各位大侠多多指点。
22:20 上传
点击文件名下载附件
695.77 KB, 下载次数: 15
22:20 上传
点击文件名下载附件
781.25 KB, 下载次数: 12
阅读权限10
在线时间 小时
为啥没高手解答勒！版主！求救呀！
阅读权限10
在线时间 小时
本帖最后由 tanpingabcd_1 于
18:58 编辑
我将代码粘出来吧，请各位指导下。
----------------------------------------
本段代码用于添加导航页index，实现在index中点击一个单元格，即跳转到对应页的链接位置【INDEX单元格指向的位置】。
----------------------------------
Dim Sheet_Nb As Integer
Dim Position1 As Long
Dim Type_Nb, NAME_NB As Integer
Dim select_type() As Variant
Dim CLM(100) As Integer& && & '新增字段修改区
Sub insert_sheet()& && &'用于在原工作薄中插入名为index的sheet页
& & ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
& & Sheets(1).Select
& & Sheets.Add
& & Sheets(1).Name = &Index&
Public Sub indexsheet()
& & select_type = Array(&NAME&) '新增字段修改区
& & insert_sheet&&'在工作簿中插入一个sheet；
& & For i = 0 To UBound(select_type)
& && &&&Sheets(1).Cells(1, i + 1) = select_type(i)
& && &&&If select_type(i) = &NAME& Then NAME_NB = i + 1&&'NAME_NB代表关键字NAME所在列号
'----------------------------------------------------------------------------------------------------------
'此段用于复制其他页含有“NAME”关键字的列，将其copy到index中
& & For Sheet_Nb = 2 To Sheets.Count
& && && &Sheets(Sheet_Nb).Select
& && && &sum_clm = ActiveSheet.UsedRange.Columns.Count
& && && &sum_row = ActiveSheet.UsedRange.Rows.Count
& && && &CL_NO = 0
& && && &Position1 = Sheets(1).UsedRange.Rows.Count
& && && &For Type_Nb = 0 To UBound(select_type)
& && && && && & For x = 1 To sum_clm
& && && && && &
& && && && && && &&&If InStr(Sheets(Sheet_Nb).Cells(1, x), select_type(Type_Nb)) && 0 Then
& && && && && && &&&
& && && && && && && &&&CLM(CL_NO) = x
& && && && && && && &&&CL_NO = CL_NO + 1
& && && && && && && &&&Exit For
& && && && && && && &&&
& && && && && && &&&End If
& && && && && && &&&
& && && && && && &&&
& && && && && && &&&If x = sum_clm Then CL_NO = CL_NO + 1: GoTo next_type
& && && && && && &&&
& && && && && & Next
& && && && && && && && &
& && && && && & Sheets(Sheet_Nb).Select
& && && && && & Sheets(Sheet_Nb).Range(Cells(2, CLM(Type_Nb)), Cells(sum_row, CLM(Type_Nb))).Select
& && && && && && && &
& && && && && & Selection.Copy
& && && && && & Sheets(1).Select
& && && && && & row = Position1
& && && && && & Cells(row + 1, Type_Nb + 1).Select
& && && && && & Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
& && && && && && &&&:=False, Transpose:=False
& && && && && &
next_type:
& && && & Next
'--------------------------------------------------------------------------------------------------------------------------------------------
'此段用于添加链接信息。已点击index中的单元格，即跳转至对应页的位置【index链接指向的位置】
& && && &sheet_name = Sheets(Sheet_Nb).Name
& && &With Sheets(&index&)
& && && &For Hyper_Nb = 1 To sum_row - 1
& && &&&'& &&&Sheets(&Index&).Activate
& && && && & .Cells(Position1 + Hyper_Nb, NAME_NB).Select
& && && && & CBL_name = .Cells(Position1 + Hyper_Nb, NAME_NB)
& && && && &
& && && && & Hyper = CStr(Hyper_Nb + 1)
& && && && &Sheets(&index&).Hyperlinks.Add Anchor:=Selection, Address:=&&, SubAddress:=sheet_name & &!B& & Hyper, TextToDisplay:=CBL_name
& && && && &&&
& && && &Next
& && &End With
-----------------------------------
阅读权限10
在线时间 小时
debug时，问题就是出现在Sheets(&index&).Hyperlinks.Add Anchor:=Selection, Address:=&&, SubAddress:=sheet_name & &!B& & Hyper, TextToDisplay:=CBL_name
阅读权限10
在线时间 小时
跪求高手出招！
阅读权限10
在线时间 小时
真无人能解么？:L
阅读权限30
在线时间 小时
版本是2003? 其实我看不太懂你的代码，不过整体感觉是不断的将某sheet的资料贴到sheet index中，我是用2003的出错在Row数超出65536，也帮不了你
还有一些怪怪的代码
Dim CLM(100) As Integer&&这个变数你如何保证不超出index?
看起来效能都卡在这段代码，应该要找一下有没有更快的加超连结的代码& && &With Sheets(&index&)
& && && &For Hyper_Nb = 1 To sum_row - 1
& && && &
& && &&&'& &&&Sheets(&Index&).Activate
& && && && & .Cells(Position1 + Hyper_Nb, NAME_NB).Select
& && && && & CBL_name = .Cells(Position1 + Hyper_Nb, NAME_NB)
& && && && &
& && && && & Hyper = CStr(Hyper_Nb + 1)
& && && && &Sheets(&index&).Hyperlinks.Add Anchor:=Selection, Address:=&&, SubAddress:=sheet_name & &!B& & Hyper, TextToDisplay:=CBL_name
& && && && &&&
& && && &
& && && &Next
& && &End With
& && &&&
& & Next复制代码
阅读权限30
在线时间 小时
找到快速加超连结的资料，不过是英文版的
关键代码，利用excel function hyperlink,这个参数好像也可以设定为range，我是看MS的说明(还说明是2010适用…2003不能设定range,我已测试过)Sub test_simple_diffurl()
& & Dim r As Range
& & Set r = Range(&C1:C60000&)
& & r.Formula = &=HYPERLINK(&&?address=&& & ADDRESS(ROW(),COLUMN()),&&Test with && & ADDRESS(ROW(),COLUMN()))&
End Sub复制代码
阅读权限10
在线时间 小时
lolmuta 发表于
版本是2003? 其实我看不太懂你的代码，不过整体感觉是不断的将某sheet的资料贴到sheet index中，我是用2003 ...
谢谢！我用的是2010，应该不受65535限制。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}