只能读取97-2003的文件格式xls，不支持xlsx格式
importjava.io.File;
importjxl.*;
publicclassExcelUtils{
publicstaticvoidmain(String[]args){
try{
Workbookbook=Workbook.getWorkbook(newFile("c:\\Book1.xls"));
//获得第一个工作表对象
Sheetsheet=book.getSheet(0);
..
分类：
编程语言 时间：
2015-10-04 06:46:58
阅读次数：
172
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Target.Column = 2 Then For Each sht In Sheets If sht.Name Targe...
分类：
其他好文 时间：
2015-09-23 16:45:12
阅读次数：
214
转载请注明出处：王亟亟的大牛之路
古人学问无遗力，少壮工夫老始成。 —— 陆游《冬夜读书示子聿》
继上一篇自定义Dialog之后的又一篇自定义控件的文章上一篇http://blog.csdn.net/ddwhan0123/article/details/48651905
这一次是封装 EditText+ImageView在我们的LinearLayout中，进一步简化了表单类UI的搭建工作...
分类：
其他好文 时间：
2015-09-22 16:46:45
阅读次数：
244
读取操作import xlrd打开 Excel 文件excel = xlrd.open_workbook('excel.xls')查看 sheet 名excel.sheet_names()得到第一个工作表，或者通过索引顺序，或工作表名称table = excel.sheets()[0]table =...
分类：
编程语言 时间：
2015-09-22 16:04:10
阅读次数：
149
Sub 新建工作表()Sheets.Add , , 2 自动命名Sheets.Add.Name = "hello" 直接命名End SubSub 删除工作表()Sheet1.DeleteSheets("hello").Deleteon error resume nextapplication.dis...
分类：
其他好文 时间：
2015-09-16 12:09:29
阅读次数：
229
Visio如何合并多张工作表（将多个文件合并成一个文件）今天有个盆友问了我这样一个问题：手上有3张Visio文件，分别是3张流程图。他想将3个文件做成像excel表那样，有工作表1，工作表2，工作表3的样式。图片效果如下：将上述3个流程图文件，合并到一个文件里去，如下图：实现方..
分类：
其他好文 时间：
2015-09-15 01:53:18
阅读次数：
365
广为认知的方法是，运行一段猜测密码的VBA(https://uknowit.uwgb.edu/page.php?id=28850)，几十秒就可以找到，因为密码Hash很短所以密码有多个。但是Excel2013里密码Hash很长所以密码几乎是唯一的，依靠这个VBA肯...
分类：
其他好文 时间：
2015-09-11 14:32:12
阅读次数：
191
#!/usr/bin/envpython
importxlsxwriter,xlrd
importsys,os.path
reload(sys)
sys.setdefaultencoding(‘utf8‘)
defMergeExcelToWorksheet(*arg):
lfile=arg
fname={}
worksheet={}
forhinlfile:
fname[h]=h
printh
data=xlrd.open_workbook(fname[h])#打开fname文件..
分类：
其他好文 时间：
2015-09-10 17:47:15
阅读次数：
186
方法： 1,excel中，按Alt+F11，打开VBA编辑界面，双击需要改的工作表名称，将下面代码粘贴到右边框中，即可。 2，代码： Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIn...
分类：
其他好文 时间：
2015-09-10 16:06:28
阅读次数：
238
在你要实现此功能的工作表标签右击，在弹出的菜单中选择编辑代码，然后输入下面代码保存即可！如没有出现效果，则可能是禁用了宏的关系。所以要在安全选项中启用宏选项。Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rng As...
分类：
其他好文 时间：
2015-09-08 08:24:45
阅读次数：
233
