原创 C#:替換字符串(文字),僅替換第1次出現的
string s = "aaa"; Regex r = new Regex("a"); s=r.Replace(s,"b",1);
原创 C#:查看文件的編碼Encoding
using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.IO; namespace Text
原创 EXCEL-VBA:控制(設置)表單控件,讀取內容
'方法1 Sheet1.Labels("標籤 1").Caption = "標籤內容" Sheet1.Buttons("按鈕 1").Caption = "開始按鈕" Sheet1.CheckBoxes("複選 1"
原创 EXCEL-VBA:EXCEL的各種文件名獲取
'文件名(不帶路徑) ABC.xlsx ThisWorkbook.Name '文件名不帶擴展名 ABC Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1) '帶全路
原创 VBA:通過API函數,調用計算器,模擬按鍵等操作
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Declare Function FindWindow Lib "user32"
原创 VBA-EXCEL:控制WORD文件
Sub a() Dim WordApp As Object '定義Word Application Set WordApp = CreateObject("Word.Application") WordApp.Visible = Tru
原创 C#:控制IE獲取網頁上的驗證碼,並存到本地
工程引用 : Microsoft Internet Controls Microsoft HTML Object Library 並將兩個引用的屬性“嵌入互操作類型”改爲False private void button1_Click(
原创 SQL SERVER:數字顯示千分位
select convert(varchar,cast(123123123 as money),1)
原创 Excel-VBA:不同Sheet間的列、行復制
'Sheet1中先在第3列加入一個空列,格式參照右側,參照左側用xlFormatFromLeftOrAbove Sheet1.Columns(3).Insert , CopyOrigin:=xlFormatFromRightOrBelo
原创 EXCEL-VBA:Workbooks.Open 參數 (打開文件)
打開一個工作簿。 語法 表達式 . Open( FileName , UpdateLinks , ReadOnly , Format , Password , WriteResPassword , IgnoreReadOnlyRecomm
原创 Excel-VBA:列號與字母(列名)的相互轉換 (自定義函數)
'列號轉字母(列名) Function Num2Name(ByVal ColumnNum As Long) As String On Error Resume Next Num2Name = "" '超出範圍返回空,如調
原创 SQL2008:日誌清理方法
USE [master]; GO ALTER DATABASE 數據庫名 SET RECOVERY SIMPLE WITH NO_WAIT; GO ALTER DATABASE 數據庫名 SET RECOVERY SIMPLE;--簡單
原创 EXCEL:轉換人民幣大寫
方法1-格式:(不完全) 設置單元格格式->特殊 -> 中文大寫數字 這種方式,只能得到大寫的數字,不會含有元、角、分等信息。 方法2-公式:(完美) =IF(A2=0,"",IF(A2<0,"負","")&SUBSTITUTE(SU
原创 EXCEL-VBA:Excel Range數組批量輸入數據
Sheets("Sheet1").Range("A1:B1").Value = Array(1, 2)
原创 C#:Excel一次性大量數據快速寫入
//調用的方法 Microsoft.Office.Interop.Excel.Application app = new Microsoft.Office.Interop.Excel.Application(); string f