原创 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