Excel | 时鹏亮的blog

VBS Excel 宏 VBA有时需要写出一些内容到文件，如何处理呢？

示例代码如下：

Dim filePath As String
filePath = "C:\temp\MyTestFile.txt"

' The advantage of correctly t[......]

比较少见的需求了，不过碰到了就整理下吧。本文整理的代码实现了POST查询功能。

完整示例代码如下：

Private Sub cmdKirimGET_Click()
    Dim strResult As String
    Dim objHTTP As Object
    Dim[......]

最近有个需求是用Excel的VBA 宏发送Cookie的请求。

实测后，将VBS Excel 宏 VBA 发送带Cookie的HTTP请求的实例代码总结如下：

    Dim http
    Set http = CreateObject("Msxml2.Server[......]

VBA中如果有循环处理数据，通常在循环过程中，Excel的表现会是卡死的状态，用户体验并不太好，所以尝试搜了下VBA 宏里面实现延时功能。

示例代码：

'宏顶部声明延时的函数
'Excel 2010 以及之后的版本使用如下声明代码
Public Declare PtrSafe Sub[......]

有时我们需要为Excel中的图片添加超链接，批量的操作肯定少不了VBA宏。

那么如何使用VBA为图片添加链接呢？示例代码如下：

ActiveSheet.Pictures.Insert(Filename).Select
Set shp = Selection.ShapeRange.[......]

有时我们的单元格可能存在一长串的数字，Excel默认会将该单元格显示成科学计数法。而我们预期是想展示成字符串。

那么VBA如何设置指定单元格的长串数字正常显示而不是显示科学计数法呢？

If IsNumeric(Cells(hang, 10).Values) Then
    Ce[......]

偶尔我们指定了行高度后，需要对应行的单元格自动换行，那么VBA如何实现指定范围的行中的单元格自动换行呢？

如下代码即可：

Range("A" & hang & ":R" & hang).WrapText = True[......]

有时需要指定行高，VBA如何实现呢？一行代码即可：

Rows(hang).RowHeight = 110

上述代码即实现了指定hang的高度为110。[……]

有这么个需求，Excel有一列是图片地址，现在需要将图片地址下载成图片。

那么如何处理呢？想来必然是要用VBA宏的。网上搜了下实现，demo代码如下：

Sub URLPictureInsert()
Dim Pshp As Shape
Dim xRg As Range
Dim xCol A[......]

有时Excel需要添加个按钮直接调用宏，那么如何添加按钮呢？方法如下：

[……]

时鹏亮的blog