lichao.me Report : Visit Site

Technical data of the lichao.me

Geo IP provides you such as latitude, longitude and ISP (Internet Service Provider) etc. informations. Our GeoIP service found where is host lichao.me. Currently, hosted in United States and its service provider is Krypt Technologies .

the related websites

amazon.com journals.elsevier.com 

HTTP Header Analysis

HTTP Header information is a part of HTTP protocol that a user's browser sends to called Microsoft-IIS/6.0 containing the details of what the browser wants and will accept back from the web server.

DNS

HtmlToText

me!李超 拿三分之一的生命奋斗，创造三分之二生命的辉煌！ 博客首页 标签 asp php asp.net 服务器 网络安全 centos 个人档案 给我留言 预览模式: 普通 | 列表 use vba saveas in excel 2007-2016 作者:李超 日期:2016-11-14 use vba saveas in excel 2007-2016 information you see a lot of old saveas code that does not specify the fileformat parameter. in excel versions before excel 2007, code without this parameter will not cause too many problems because excel will use the current fileformat of the existing file and the default fileformat for new files is a (xls) in 97-2003 because there are no other excel file formats before excel 2007. but because there are so many new file formats in excel 2007-2016, we shouldn't use code like this that does not specify the fileformat parameter. in excel 2007-2016, saveas requires you to provide both the fileformat parameter and the correct file extension. for example, in excel 2007-2016, this will fail if the activeworkbook is not an xlsm file activeworkbook.saveas "c:\ron.xlsm" this code will always work activeworkbook.saveas "c:\ron.xlsm", fileformat:=52 ' 52 = xlopenxmlworkbookmacroenabled = xlsm (with macro's in 2007-2016) these are the main file formats in excel 2007-2016, note : in excel for the mac the values are +1 51 = xlopenxmlworkbook (without macro's in 2007-2013, xlsx) 52 = xlopenxmlworkbookmacroenabled (with or without macro's in 2007-2013, xlsm) 50 = xlexcel12 (excel binary workbook in 2007-2013 with or without macro's, xlsb) 56 = xlexcel8 (97-2003 format in excel 2007-2013, xls) note : i always use the fileformat numbers instead of the defined constants in my code so that it will compile ok when i copy the code into an excel 97-2003 workbook (for example, excel 97-2003 won't know what the xlopenxmlworkbookmacroenabled constant is). examples below are two basic code examples to copy the activesheet to a new workbook and save it in a format that matches the file extension of the parent workbook. the second example use getsaveasfilename to ask you for a file path/name. example 1 you can use in excel 97-2016 , example 2 you can use in excel 2000-2016. if you run the code in excel 2007-2016 it will look at the fileformat of the parent workbook and save the new file in that format. only if the parent workbook is an xlsm file and if there is no vba code in the new workbook it will save the new file as xlsx. if the parent workbook is not an xlsx, xlsm or xls then it will be saved as xlsb. if you always want to save in a certain format you can replace this part of the macro: select case sourcewb.fileformat case 51: fileextstr = ".xlsx": fileformatnum = 51 case 52: if .hasvbproject then fileextstr = ".xlsm": fileformatnum = 52 else fileextstr = ".xlsx": fileformatnum = 51 end if case 56: fileextstr = ".xls": fileformatnum = 56 case else: fileextstr = ".xlsb": fileformatnum = 50 end select with one of the one liners from this list fileextstr = ".xlsb": fileformatnum = 50 fileextstr = ".xlsx": fileformatnum = 51 fileextstr = ".xlsm": fileformatnum = 52 or maybe you want to save the one worksheet workbook to csv, txt or prn. (you can use this also if you run the code in excel 97-2003) fileextstr = ".csv": fileformatnum = 6 fileextstr = ".txt": fileformatnum = -4158 fileextstr = ".prn": fileformatnum = 36 examples sub copy_activesheet_1() 'working in excel 97-2016 dim fileextstr as string dim fileformatnum as long dim sourcewb as workbook dim destwb as workbook dim tempfilepath as string dim tempfilename as string with application .screenupdating = false .enableevents = false end with set sourcewb = activeworkbook 'copy the sheet to a new workbook activesheet.copy set destwb = activeworkbook 'determine the excel version and file extension/format with destwb if val(application.version) < 12 then 'you use excel 97-2003 fileextstr = ".xls": fileformatnum = -4143 else 'you use excel 2007-2016 select case sourcewb.fileformat case 51: fileextstr = ".xlsx": fileformatnum = 51 case 52: if .hasvbproject then fileextstr = ".xlsm": fileformatnum = 52 else fileextstr = ".xlsx": fileformatnum = 51 end if case 56: fileextstr = ".xls": fileformatnum = 56 case else: fileextstr = ".xlsb": fileformatnum = 50 end select end if end with ' 'change all cells in the worksheet to values if you want ' with destwb.sheets(1).usedrange ' .cells.copy ' .cells.pastespecial xlpastevalues ' .cells(1).select ' end with ' application.cutcopymode = false 'save the new workbook and close it tempfilepath = application.defaultfilepath & "\" tempfilename = "part of " & sourcewb.name & " " & format(now, "yyyy-mm-dd hh-mm-ss") with destwb .saveas tempfilepath & tempfilename & fileextstr, fileformat:=fileformatnum .close savechanges:=false end with msgbox "you can find the new file in " & tempfilepath with application .screenupdating = true .enableevents = true end with end sub sub copy_activesheet_2() 'working in excel 2000-2016 dim fname as variant dim newwb as workbook dim fileformatvalue as long 'check the excel version if val(application.version) < 9 then exit sub if val(application.version) < 12 then 'only choice in the "save as type" dropdown is excel files(xls) 'because the excel version is 2000-2003 fname = application.getsaveasfilename(initialfilename:="", _ filefilter:="excel files (*.xls), *.xls", _ title:="this example copies the activesheet to a new workbook") if fname <> false then 'copy the activesheet to new workbook activesheet.copy set newwb = activeworkbook 'we use the 2000-2003 format xlworkbooknormal here to save as xls newwb.saveas fname, fileformat:=-4143, createbackup:=false newwb.close false set newwb = nothing end if else 'give the user the choice to save in 2000-2003 format or in one of the 'new formats. use the "save as type" dropdown to make a choice,default = 'excel macro enabled workbook. you can add or remove formats to/from the list fname = application.getsaveasfilename(initialfilename:="", filefilter:= _ " excel macro free workbook (*.xlsx), *.xlsx," & _ " excel macro enabled workbook (*.xlsm), *.xlsm," & _ " excel 2000-2003 workbook (*.xls), *.xls," & _ " excel binary workbook (*.xlsb), *.xlsb", _ filterindex:=2, title:="this example copies the activesheet to a new workbook") 'find the correct fileformat that match the choice in the "save as type" list if fname <> false then select case lcase(right(fname, len(fname) - instrrev(fname, ".", , 1))) case "xls": fileformatvalue = 56 case "xlsx": fileformatvalue = 51 case "xlsm": fileformatvalue = 52 case "xlsb": fileformatvalue = 50 case else: fileformatvalue = 0 end select 'now we can create/save the file with the xlfileformat parameter 'value that match the file extension if fileformatvalue = 0 then msgbox "sorry, unknown file extension" else 'copies the activesheet to new workbook activesheet.copy set newwb = activeworkbook 'save the file in the format you choose in the "save as type" dropdown newwb.saveas fname, fileformat:= _ fileformatvalue, createbackup:=false newwb.close false set newwb = nothing end if end if end if end sub 分类: asp | 固定链接 | 评论: 950 | 引用: 0 | 查看次数: 24377 vb编写的数据库程序在win7 sp1编译无法在xp系统上使用的问题 作者:李超 日期:2016-04-14 可能出现的错误提示有： 1、430 class does not support automation or does not support expected interface 运行时错误"430": 类不支持自动化或不支持所需的接口 2、error 13 - type mismatch 问题产生原环境： 查看更多... 分类: 其它文章 | 固定链接 | 评论: 3 | 引用: 0 | 查看次数: 2526 teleport ultra/teleport pro的冗余代码批量清理方法 作者:李超 日期:2015-10-04 teleport pro 是款优秀的网站离线浏览工具（即网站整站下载工具），teleport ultra是其增强版，但使用此系列软件下载的离线网页里会包含大量冗余代码（如tppabs），手动去修改工作量很大，下面介绍如何通过软件进行正则表达式批量替换冗余代码（推荐dreamweaver的正则替换功能）。 清除tppabs标签： html文件中： 查找： \btppabs="h[^"]*" 替换：（空） css文件中的图片链接（以gif图片为例）： 查找： tpa=http://[^\s]* .gif 替换：（空） css文件中的注释： 查找： /\*tpa.*?\*/ 替换：（空） 修复confirm链接： 查找：href=" *javascript:if\(confirm\('(htt[^"\s]*).*?" 替换：href="$1" 冗余代码示例： href =" javascript:if(confirm('http://www.abcd9.com / \n\n该文件无法用 teleport ultra 下载, 因为 不可用, 或放弃了下载, 或项目即将停止。 \n\n你想在服务器上打开它?'))window.location='http://www.abcd9.com /'" 示例替换后结果： href= http://www.abcd9.com/ 分类: asp | 固定链接

URL analysis for lichao.me

http://www.lichao.me/default.asp?cateid=8
http://www.lichao.me/default.asp?cateid=9
http://www.lichao.me/trackback.asp?tbid=157&action=view
http://www.lichao.me/article.asp?id=158#comm_top
http://www.lichao.me/default.asp?cateid=6
http://www.lichao.me/default.asp?cateid=7
http://www.lichao.me/default.asp?log_year=2012&log_month=12
http://www.lichao.me/default.asp?log_year=2012&log_month=10
http://www.lichao.me/default.asp?log_year=2012&log_month=11
http://www.lichao.me/member.asp
http://www.lichao.me/trackback.asp?tbid=155&action=view
http://www.lichao.me/default.asp?log_year=2016&log_month=11
http://www.lichao.me/default.asp?page=3
http://www.lichao.me/default.asp?page=2
http://www.lichao.me/article.asp?id=164#comm_77868

Whois Information

Whois is a protocol that is access to registering information. You can reach when the website was registered, when it will be expire, what is contact details of the site with the following informations. In a nutshell, it includes these informations;

SERVERS

  SERVER whois.meregistry.net

  ARGS lichao.me

  PORT 43

DOMAIN

NSERVER

  F1G1NS2.DNSPOD.NET 61.129.8.159

  F1G1NS1.DNSPOD.NET 58.247.212.36

Mistakes

The following list shows you to spelling mistakes possible of the internet users for the website searched .