07 2012 档案

摘要：创建新目录$dir = 'C:\test1';mkdir $dir,0777 or warn "error: $!";重命名目录移动目录my $source_dir = 'C:\test2';my $destination_dir = 'C:\test1';system("move $source_dir $destination_dir");删除目录# 删除的目录必须是空目录$dir = 'C:\test1';rmdir($dir) or warn "error: $!" 阅读全文

摘要：打开工作簿Sub OpenWorkbook() Workbooks.Open "test.xlsm"End Sub 阅读全文

摘要：读取MS SQL Server数据表数据，并将它保存到excel工作表中Sub ReturnSQLrecord() 'sht 为excel工作表对象变量,指向某一工作表 Dim i As Integer, sht As Worksheet '定义数据链接对象 ，保存连接数据库信息 '使用ADODB，须在菜单的Tools->References中添加引用“Microsoft ActiveX Data Objects library 2.x” Dim cn As New ADODB.Connection '定义记录集对象，保存数据表 Dim... 阅读全文

摘要：显示工作簿所在目录Sub DisplayPath() Debug.Print ThisWorkbook.PathEnd Sub 阅读全文

摘要：获取单元格中的内容Sub GetCellValue() Dim cell_A1 As String, cell_B1 As String cell_A1 = ActiveSheet.Range("A1").Value cell_B1 = ActiveSheet.Range("B1").Value Debug.Print cell_A1 Debug.Print cell_B1End Sub 阅读全文

摘要：新增表单Sub AddNewsheet() Sheets.AddEnd SubSub AddNewSheet2() '若有同名的sheet已经存在时，使用该种方法添加表单，会报错 Sheets.Add.Name = "NewSheet2"End Sub修改表单名称Sub RenameSheet() Sheets("Sheet23").Select Sheets("Sheet23").Name = "NewName"End Sub删除表单Sub DeleteSheet() Application.Displa 阅读全文

摘要：Perl实现HTML2TXT中文转换use HTML::TreeBuilder;use HTML::FormatText; open OUTPUT,">output.txt";$file = "C:/test.html";$tree = HTML::TreeBuilder->new->parse_file("$file"); $formatter = HTML::FormatText->new(leftmargin => 3, rightmargin => 100);print OUTPUT $fo 阅读全文

摘要：'删除超链接地址Sub RemoveLink()'Remove all hyperlinks from the active sheetActiveSheet.Hyperlinks.Delete'用下面的代码亦可'Cells.Hyperlinks.DeleteEnd Sub'获取超链接地址Sub getLink()Dim hlkTemp As HyperlinkFor Each hlkTemp In ActiveSheet.Hyperlinks'将抽取的超链接放在包含超链接单元格的后面hlkTemp.Range.Offset(0, 1).valu 阅读全文