最近整理硬盤文件,發現一個Outlook裏的全球通訊錄到Excel的代碼,但不知道這個文件是什麼時候下的了,謹向原作者致敬。
注意:
1、這個代碼是寫在Excel的模塊裏的。
2、通訊錄中聯繫人個數多的話,可能時間有點長
作者:laoyebin(Paladin.lao)
出處:http://www.cnblogs.com/laoyebin/
個人網站英文出處:http://mrvsto.com/
個人網站中文出處:http://cn.mrvsto.com/
最近整理硬盤文件,發現一個Outlook裏的全球通訊錄到Excel的代碼,但不知道這個文件是什麼時候下的了,謹向原作者致敬。
注意:
1、這個代碼是寫在Excel的模塊裏的。
2、通訊錄中聯繫人個數多的話,可能時間有點長
作者:laoyebin(Paladin.lao)
出處:http://www.cnblogs.com/laoyebin/
個人網站英文出處:http://mrvsto.com/
個人網站中文出處:http://cn.mrvsto.com/
Sub getfoldername() '獲取指定路徑下的文件夾名稱 Dim fs As Object n = 1 Set fs = CreateO
Sub adjustpic() '根據合併單元格大小調整圖片大小 Dim Pic As Shape For Each Pic In ActiveS
Rows.Count 顯示所有行的數目 Columns.Count 顯示所有列的數目 Cells(Rows.Count, 1).End(