Sub sendTweets() Dim xml, sUsername$, sPassword$, sTweets$ Set xml = CreateObject("MSXML2.XMLHTTP") sUsername = "" ' your username sPassword = "" ' your password sTweets = "" ' your tweets xml.Open "POST", "http://" & sUsername & ":" & sPassword & _ "@twitter.com/statuses/update.xml?status=" & sTweets, False xml.setRequestHeader "Content-Type", "content=text/html; charset=iso-8859-1" xml.Send Set xml = Nothing Debug.Print "OK" End Sub
當然，發推前翻牆那是必要滴。
Sub getfoldername() '獲取指定路徑下的文件夾名稱 Dim fs As Object n = 1 Set fs = CreateO
Sub createfol() '根據sheet名稱創建相應的文件夾 Set fol = CreateObject("scripting.filesystemobject") Dim ws As Worksheet Dim path As
Sub getpicname() '獲取指定路徑下的圖片名稱(※帶後綴) Dim path As String path = "E:\傢俱圖片\A客廳" n = 2 Filename = Dir(path &
Sub adjustpic() '根據合併單元格大小調整圖片大小 Dim Pic As Shape For Each Pic In ActiveS
Sub printshapesname() For s = 1 To ActiveSheet.Shapes.Count Debug.Print ActiveSheet.Shapes(s).Name Next End Sub
5. 在同一個模塊裏輸入另外一個過程： Sub GetFiles() Dim nfile As String Dim nextRow As Integer 'next row index nextRow = 1 With Workshee
Sub test() Dim cn As Object, cat As Object, tbl As Object, str$ Set cn = CreateObject("ADODB.Connection") S
Sub CreatShortCut() Dim WSHShell Set WSHShell = CreateObject("WScript.Shell") Dim MyShortcut, DesktopPath
1.1 VBA語言元素概覽 Sub VBA_Demo() ' This is a simple VBA Example Dim Total As Long, i As Long Total = 0 For i = 1 To
修改了這片文章中提供的代碼https://blog.csdn.net/shuai9201/article/details/73322974以實現合併的結果只有一個表頭的功能。 Sub MergeMultiFiles() D
Rows.Count 顯示所有行的數目 Columns.Count 顯示所有列的數目 Cells(Rows.Count, 1).End(
Workbooks(1).Name Workbooks(1).FullName 工作簿地址加名字 Workbooks(1).Path 工作簿地址 Workbooks(1).Close SaveChanges:=False
參考：http://msdn.microsoft.com/zh-cn/library/ktwtk9ff%28v=VS.80%29.aspx TextBox事件 →KeyPress事件的語法如下： KeyANSI只是個參數，所以可以改
Application.Version 顯示Excel的版本號 Application.UserName 顯示當前用戶的用戶名 Appl
EXCEL 公式 2列多行轉成1行 =OFFSET($A1,ROUNDUP(COLUMN(A1)/2,0)-1,MOD(COLUMN(B1),2)) 3列多行轉成1行 =OFFSET($A1,ROUNDUP(COLUMN(A1)/3,0
