硬盘4K对齐
ParagonAlignmentTool 4.0
 
 

本文为转载，还没有来得及去核实，权先记录。
 
在用OLE DB，ISAM会尝试读取前8行的数据类型，如果一列中的前8行既有文本类型又有数字类型，那么就取多数的数据类型，其余的返回为空。如果两者一样的数目一样多，那么就取数字类型，文本类型的行返回空值。
即：某一列前8行中
如果5行文本类型，3行数字类型 则返回结果为5行文本类型的数据，3行空值
如果5行数字类型，3行文本类型 则返回结果为5行数字类型的数据，3行空值
如果4行文本类型，4行数字类型 则返回结果为4行数字类型的数据，4行空值
当然8行以后的值按照前面探测的结果，如果跟结果一样的类型返回原来的值，如果相反则返回空值。
如果想在混合类型中返回真实的值，那么就要在连接字符串的扩展属性中加上IMEX=1;这个属性的对应值如下：
0 is Export mode
1 is Import mode
2 is Linked mode (full update capabilities)
微软提醒说，谨慎使用IMEX=1,因为这是导入模式，在这种模式下做数据的添加或者更新结果不可预料，所以在对Excel做Insert 或者Update动作时，不要给这个属性赋值。
那么为什么在IMPort Mode的情况下就是用文本方式读取的那？
请看注册表HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel 下面有个键ImportMixedTypes，它的值是Text，也就是说在导入模式下，混合数据类型统一处理为文本。
这样看似一切OK了，不过当你的数据前八行都是数字，后面的N(N>>8)为文本类型时，即使你把IMEX设为1，后面的文本还是不会显示的。
why？
ISAM还是比较勤快的，即使你跟他交待了在导入模式下使用文本类型，它还是比较关注前八行的情况，如果前八行都为数字，他还是要按数字来处理，这家伙还是比较执著,很想主持公道的。
那咋办？
还是得靠注册表,还是上面的那个路径下有个键TypeGuessRows，其默认键值为8，这就是前八行的来源，你可以把它设为1-16行，当然也可以把它设为0，它不是很勤快吗？那就让它看看所有的行吧！累死个傻小子。如果所有行都是数字，那就是数字了，有一个不是数字那就按文本处理。
以上的理论在我的机子上测试通过，环境是Office2003，Win2000 Sp4

选择当前活动de工作簿:
ThisWorkbook.Activate
如果选择其他工作簿，注意该工作簿一定是打开de，并且不要忘记加上后缀“.xls” ，例如：
Windows(“Totol.xls”).Activate
选择一个工作表：
Sheets(“Balance”).Activate.
选择单元格：
Range(“A1”).Select
选择连续de单元格：
Range(“A1:G8”).Select
选择不连续de单元格：
Range(“A1,B6,D9”).Select
Range(“A1,B6:B10,D9”).Select
单元格间移动：
ActiveCell.Offset(13, 14).Select
Selection.Offset(-3, -4).Select
Range(“G8”).Offset(-3, -4).Select
注意：你可以定义一变量，并且用offset来实现，例如：
varFreightRowsCount = Range(“A1”).CurrentRegion.Rows.Count
ActiveCell.Offset(varFreightRowsCount, 0).Select
选择整个工作表：
Cells.Select
选择当前单元格所在de区域（遇到空行/空列即止）：
Range(“A1”).CurrentRegion.Select
选择行或列：
Rows(“1”).Select
Columns(“A”).Select
或者：
ActiveCell.EntireRow.Select
ActiveCell.EntireColumn.Select
选择相邻de多行/多列：
Columns(“A:C”).Select
Rows(“1:5”).Select
选择不相邻de多行/多列(注意：和选择相邻de多行/多列不同，使用”Range”而不是”Columns/Rows”：)
Range(“A:A, C:C, E:F”).Select
Range(“1:1,5:6,9:9”).Select
选择当前活动单元格向下至最后一个非空单元格：
Range(“A1”, Range(“A1”).End(xlDown)).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
选择当前活动单元格向上至第一个非空单元格：
Range(“A32”, Range(“A32”).End(xlUp)).Select
Range(ActiveCell, ActiveCell.End(xlUp)).Select
选择当前活动单元格向右至第一个非空单元格。(注意：是 “xlTORight”而不是 “xlRight” )
Range(“A1”, Range(“A1”).End(xltoRight)).Select
Range(ActiveCell, ActiveCell.End(xltoLeft)).Select
选择当前活动单元格向右至第10个单元格。
Range(“A2”, Range(“A2”).Offset(0, 10)).Select
Range(ActiveCell, ActiveCell.Offset(0, 10)).Select
选择当前活动单元格向左至第10个单元格。
Range(“A20”, Range(“A20”).Offset(0, -10)).Select
Range(ActiveCell, ActiveCell.Offset(0, -10)).Select
选择当前活动单元格向下至第10个单元格。
Range(“a2”, Range(“a2”).Offset(10, 0)).Select
Range(ActiveCell, ActiveCell.Offset(10, 0)).Select
选择当前活动单元格向上至第10个单元格。
Range(“A1”).End(xlDown).Offset(1, 0).Select
选择该行中第一个空单元格：
Range(“A1”).End(xltoRight).Offset(0,1).Select
改变区域de大小(由 A1:B5 变为 A1:D10)：(注意：改区域并不是向外扩张，而是重新定义了。即 “Selection.Resize(10, 4).Select “而不是”Selection.Resize(5, 2).Select ”
Excelde宏不能记录移至当前行de第一个单元格de动作（即你按下“Home”键de动作），下面de语句则可以做到：
ActiveCell.Offset(0, -ActiveCell.Column + 1).Select
移至当前列de第一个单元格:
ActiveCell.Offset( -ActiveCell.Row + 1,0).Select
如果只有一个条件及一个动作，你可以用以下语句：
If Selection.Value > 10 Then
Selection.Offset(1,0) = 100
End If
或者更简单de：
If Selection.Value > 10 Then Selection.Offset(1,0) = 100
如果有两个条件及两个动作，你可以用下面de语句:
If Selection.Value > 10 Then
If Selection.Value = 12 Then
Selection.Offset(1,0) = 100
End If
Selection.Offset(1,0) = 20
End If
当有双重条件（并存de条件）和一个动作时，你可以用下面de语句：
If Selection.Value = 10 And Selection.Offset(0,1).Value = 20 Then
Selection.Offset(1,0) = 100
End If
当有双重条件(可选择de条件）和一个动作时，你可以用下面de语句：
If Selection.Value = 10 Or Selection.Offset(0,1).Value = 20 Then
Selection.Offset(1,0) = 100
End If
当只有一个条件和两个动作时，你可以用下面de语句：
If Selection.Value > 10 Then
Selection.Offset(1,0) = 100
Else
Selection.Offset(1,0) = 0
End If
当有不止一个条件，且每个条件都跟随不同de动作时，你可以用下面de语句：
If Selection.Value = 1 Then
Selection.Offset(1, 0) = 10
ElseIf Selection.Value = 2 Then
Selection.Offset(1, 0) = 20
ElseIf Selection.Value = 3 Then
Selection.Offset(1, 0) = 30
ElseIf Selection.Value = 4 Then
Selection.Offset(1, 0) = 40
ElseIf Selection.Value = 5 Then
Selection.Offset(1, 0) = 50
End If
当你不得不测试很多条件，你可以用Select Case 语句来代替If Then..ElseIf 。语法如下：
Sub test()
Select Case Selection.Value
Case Is >= 85
Selection.Offset(0, 1) = “A”
Case Is >= 75
Selection.Offset(0, 1) = “B”
Case Is >= 65
Selection.Offset(0, 1) = “C”
Case Is >= 50
Selection.Offset(0, 1) = “D”
Case Else
Selection.Offset(0, 1) = “F”
End Select
End Sub
这段语句de意思就是：如果所选单元格de值大于85时，则其右边那个单元格de值为“A”…… 所选单元格de值小于50时，其右边那个单元格de值为“F” 。

批量提交网站到多个搜索引擎的网站
搜索引擎批量提交 v 5.0 —可以批量提交到，百度，Google，Bing，雅虎，搜狗，有道，爱问，中搜，TOM几个主流的搜索引擎。（我这边测试不太顺利，基本上还是要一个一个手动提交。）
www.cnlabs.net/tools/Search_Engines_Submit 此工具可以帮助您提交您的网站到全球各大搜索引擎的索引列表里 让各大搜索引擎收录，只需要输入网址和Email地址即可，这个可以手动选择要提交的搜索引擎，应该是国人收集制作的。
www.freewebsubmission.com 和上一个类似，国外的网站服务，不可以手动选择提交哪些搜索引擎。
www.submissionurl.com 同上。
www.submitexpress.com 批量提交网站到70+的搜索引擎上。
www.submitterbot.com 批量提交到425+个搜索引擎或网站目录，13个书签站点，22+个文章收录目录。需要注册后才可以使用。
Free Manual Directory Submission Tool – 只需简单4步就可以轻松提交自己的网站至900个以上的目录站点。需要注册。
feedshark.brainbliss.com 网站RSS批量提交，可以提交到36个站点RSS订阅聚合站点。
提交网站到搜索引擎后1–2周内保持网站内容的更新，效果比较好。
有些搜索引擎提交网站需要邮件验证，从上边的几个服务提交后，登记的emal地址会收到一些验证的邮件。最好登记个主主要邮箱地址，以免会收到可能的垃圾邮件。
批量提交网站到多个搜索引擎的软件
登录奇兵 –登录奇兵软件全面支持将网站免费提交登录到新浪、网易、搜狐、百度、Yahoo!、google、21CN、MSN、HotBot、Lycos、Tom、Aol、AlltheWeb、AltaVisa等5400个国内外著名搜索引擎FFAlinks。这个不是免费版，而且售价不菲，不过网站有XX版，需要的可以自己Google。
SubmitWolf，也是一个专业的主页推广工具，可在几分钟内自动将您的网站提交到因特网上的一千五百多个搜索引擎上和链接目录上。同时SubmitWolf还能通过主要的搜索引擎来评价您的网址的等级，也就是说您的网址是否已经索引了，如果这个值较低，说明您需要重新设计您的页面的ＭＥＴＡ标签生成器，您可以将产生的META标签放在您的页面的文件头上，这样有助于搜索引擎能正确地索引您的站点。
AddWeb，它会自动在全球一百多个著名的搜索引擎中注册您的网站地址，通过它也能大大减轻您的负担。
Directory Submitter 国外的软件，批量提交。