VB 6.0如何將如下base64編碼決議或者轉換為 BMP JPG格式的圖片，有沒有轉換函式類東東？
高手解答下，多謝！新號銀子不多見諒！
VB如何轉換？？？望賜教！！！！！！！
iVBORw0KGgoAAAANSUhEUgAAAKgAAACoCAIAAAD7KTLjAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAuTSURBVHhe7dFBbiTbEQRB3f/SXxtbySEgZrKrQEptW0fkKzb/9Vv884fMHuOZkL8+xe86M3uMZ0L++hS/68zsMZ4J+etT/K4zs8d4JuSvT/G7zswe45mQvz7F7zoze4xnQv76FL/rzOwxngn561P8rjOzx3gm5N/L3/E6z4c8Mws55JBnZiG/zvM7u9d5PuSZWcghhzwzC/l1nt/Zvc7zIc/MQg455JlZyK/z/M7udZ4PeWYWcsghz8xCfp3nd3av83zIM7OQQw55Zhby6zy/s3ud50OemYUccsgzs5Bf5/md3es8H/LMLOSQQ56Zhfw6z+/sXuf5kGdmIYcc8sws5Nd5fmcX8plzIYc8Mwv5MZ4JOeQz50Le2YV85lzIIc/MQn6MZ0IO+cy5kHd2IZ85F3LIM7OQH+OZkEM+cy7knV3IZ86FHPLMLOTHeCbkkM+cC3lnF/KZcyGHPDML+TGeCTnkM+dC3tmFfOZcyCHPzEJ+jGdCDvnMuZB3diGfORdyyDOzkB/jmZBDPnMu5J1dyGfOhRzyzCzkx3gm5JDPnAt5ZxfymXMhhxzyYzwzMws55DPnQt7ZhXzmXMghh/wYz8zMQg75zLmQd3YhnzkXcsghP8YzM7OQQz5zLuSdXchnzoUccsiP8czMLOSQz5wLeWcX8plzIYcc8mM8MzMLOeQz50Le2YV85lzIIYf8GM/MzEIO+cy5kHd2IZ85F3LIIT/GMzOzkEM+cy7knV3IZ86FHHLIj/HMzCzkkM+cC3lnF/KZcyGHHHLIIZ85F3LIIZ85F/LOLuQz50IOOeSQQz5zLuSQQz5zLuSdXchnzoUccsghh3zmXMghh3zmXMg7u5DPnAs55JBDDvnMuZBDDvnMuZB3diGfORdyyCGHHPKZcyGHHPKZcyH
v7EI+cy7kkEMOOeQz50IOOeQz50Le2YV85lzIIYcccshnzoUccshnzoW8swv5zLmQQw455JDPnAs55JDPnAt5Z/c6z4d85lzIIYcccsiv8/zO7nWeD/nMuZBDDjnkkF/n+Z3d6zwf8plzIYcccsghv87zO7vXeT7kM+dCDjnkkEN+ned3dq/zfMhnzoUccsghh/w6z+/sXuf5kM+cCznkkEMO+XWe39m9zvMhnzkXcsghhxzy6zy/s3ud50M+cy7kkEMOOeTXef738neEHHLIIYcccshfn+J3DTnkkEMOOeSQvz7F7xpyyCGHHHLIIX99it815JBDDjnkkEP++hS/a8ghhxxyyCGH/PUpfteQQw455JBDDvnrU/yuIYcccsghhxzy16f4XUMOOeSQQw455J/P9/7P8ec9xjO/1vcf/5c882t9//F/yTO/1vcf/5c882t9//F/yTO/1vcf/5c882t9//F/yTO/1vcf/5c882v5M3Z2Z86dORdyyDOzkM+cm5mdObezO3PuzLmQQ56ZhXzm3MzszLmd3ZlzZ86FHPLMLOQz52ZmZ87t7M6cO3Mu5JBnZiGfOTczO3NuZ3fm3JlzIYc8Mwv5zLmZ2ZlzO7sz586cCznkmVnIZ87NzM6c29mdOXfmXMghz8xCPnNuZnbm3M7uzLkz50IOeWYW8plzM7Ozjx36U/6OkGdmZ86FHHLIM7OZ2cws/vjhT/FdIc/MzpwLOeSQZ2Yzs5lZ/PHDn+K7Qp6ZnTkXcsghz8xmZjOz+OOHP8V3hTwzO3Mu5JBDnpnNzGZm8ccPf4rvCnlmduZcyCGHPDObmc3M4o8f/hTfFfLM7My5kEMOeWY2M5uZxR8//Cm+K+SZ2ZlzIYcc8sxsZjYziz9++FN8V8gzszPnQg455JnZzGxmFnLpr/P8zCzkkEMOeWY2M3ud50t/nednZiGHHHLIM7OZ2es8X/rrPD8zCznkkEOemc3MXuf50l/n+ZlZyCGHHPLMbGb2Os+X/jrPz8xCDjnkkG
dmM7PXeb7013l+ZhZyyCGHPDObmb3O86W/zvMzs5BDDjnkmdnM7HWeL/11np+ZhRxyyCHPzGZmr/P8zi7kmdljPBPymXMhz8zOnJuZ7exCnpk9xjMhnzkX8szszLmZ2c4u5JnZYzwT8plzIc/Mzpybme3sQp6ZPcYzIZ85F/LM7My5mdnOLuSZ2WM8E/KZcyHPzM6cm5nt7EKemT3GMyGfORfyzOzMuZnZzi7kmdljPBPymXMhz8zOnJuZ7exCnpk9xjMhnzkX8szszLnZ4z/Ef2MWcsgzs5DPnDtzbmZ2596ZczOzkEOemYV85tyZczOzO/fOnJuZhRzyzCzkM+fOnJuZ3bl35tzMLOSQZ2Yhnzl35tzM7M69M+dmZiGHPDML+cy5M+dmZnfunTk3Mws55JlZyGfOnTk3M7tz78y5mVnIIc/MQj5z7sy5mdmde2fOzcxCDnlmFvKZc2fOzczu3Pu1/BkhnzkXcsghnzl3596v5c8I+cy5kEMO+cy5O/d+LX9GyGfOhRxyyGfO3bn3a/kzQj5zLuSQQz5z7s69X8ufEfKZcyGHHPKZc3fu/Vr+jJDPnAs55JDPnLtz79fyZ4R85lzIIYd85tyde7+WPyPkM+dCDjnkM+f+f/i7Qw455JBDnpmdORdyyCGH/PP53pBDDjnkkGdmZ86FHHLIIf98vjfkkEMOOeSZ2ZlzIYcccsg/n+8NOeSQQw55ZnbmXMghhxzyz+d7Qw455JBDnpmdORdyyCGH/PP53pBDDjnkkGdmZ86FHHLIIf98vjfkkEMOOeSZ2ZlzIYcccsg/n+8NOeSQQw55ZnbmXMghhxxy6a/zfMghz8xCfoxnZmYzs5B3dq/zfMghz8xCfoxnZmYzs5B3dq/zfMghz8xCfoxnZmYzs5B3dq/zfMghz8xCfoxnZmYzs5B3dq/zfMghz8xCfoxnZmYzs5B3dq/zfMghz8xCfoxnZmYzs5B3dq/zfMghz8xCfoxnZmYzs5B3dq/zfMghz8xCfoxnZmYzs
5B3diGfORdyyDOzkEMO+cy5mVnIz/FOyGfOhRzyzCzkkEM+c25mFvJzvBPymXMhhzwzCznkkM+cm5mF/BzvhHzmXMghz8xCDjnkM+dmZiE/xzshnzkXcsgzs5BDDvnMuZlZyM/xTshnzoUc8sws5JBDPnNuZhbyc7wT8plzIYc8Mws55JDPnJuZhfwc74R85lzIIc/MQg455DPnZmYhP8c7IZ85F3LIZ87NzEIOeWZ25tzMrPSQz5wLOeQz52ZmIYc8MztzbmZWeshnzoUc8plzM7OQQ56ZnTk3Mys95DPnQg75zLmZWcghz8zOnJuZlR7ymXMhh3zm3Mws5JBnZmfOzcxKD/nMuZBDPnNuZhZyyDOzM+dmZqWHfOZcyCGfOTczCznkmdmZczOz0kM+cy7kkM+cm5mFHPLM7My5mVnpIZ85F3LIM7OQQz5zbmYWcsjP8U7IZ86FHPLMLOSQz5ybmYUc8nO8E/KZcyGHPDMLOeQz52ZmIYf8HO+EfOZcyCHPzEIO+cy5mVnIIT/HOyGfORdyyDOzkEM+c25mFnLIz/FOyGfOhRzyzCzkkM+cm5mFHPJzvBPymXMhhzwzCznkM+dmZiGH/BzvhHzmXMghz8xCDvnMuZlZyCE/xzuv83zIIYc8Mztz7sy5mdnMrPTXeT7kkEOemZ05d+bczGxmVvrrPB9yyCHPzM6cO3NuZjYzK/11ng855JBnZmfOnTk3M5uZlf46z4cccsgzszPnzpybmc3MSn+d50MOOeSZ2ZlzZ87NzGZmpb/O8yGHHPLM7My5M+dmZjOz0l/n+ZBDDnlmdubcmXMzs5nZz+d7Q56ZhTwzm5m9zvMh/3y+N+SZWcgzs5nZ6zwf8s/ne0OemYU8M5uZvc7zIf98vjfkmVnIM7OZ2es8H/LP53tDnpmFPDObmb3O8yH/fL435JlZyDOzmdnrPB/yz+d7Q56ZhTwzm5m9zvMh/3y+N+SZWcgzs5nZ6zz/H/7559+hXya/QGVAkgAAAABJRU5ErkJg
gg==
uj5u.com熱心網友回復：
將 base64 編碼轉換為二進制編碼不是問題。核心問題是，你源資料的資料結構是什么？uj5u.com熱心網友回復：
你首先要把“BSAE64編碼”的文本，轉換成二進制的位元組序列。然后，再進行下一步處理（保存到檔案、“加載”圖片等等）。
你的這個，是一個PNG格式圖片檔案轉換成的BASE64編碼。
我的處理結果是一個二維碼圖片：
二維碼內容為： p2SEXjJ2IFE=
uj5u.com熱心網友回復：
VB6沒有現成的轉換函式，但是網上的 BASE64編碼轉換代碼多的很呢。uj5u.com熱心網友回復：
這個用 msxml 的最簡單了。http://thydzik.com/vb6vba-functions-to-convert-binary-string-to-base64-string/
uj5u.com熱心網友回復：
僅供參考，盡管不是VB6：#pragma comment(lib,"crypt32")
#include <windows.h>
#include <stdio.h>
#include <tchar.h>
//+-------------------------------------------------------------------------
// convert formatted string to binary
// If cchString is 0, then pszString is NULL terminated and
// cchString is obtained via strlen() + 1.
// dwFlags defines string format
// if pbBinary is NULL, *pcbBinary returns the size of required memory
// *pdwSkip returns the character count of skipped strings, optional
// *pdwFlags returns the actual format used in the conversion, optional
//--------------------------------------------------------------------------
BOOL
WINAPI
CryptStringToBinaryA(
IN LPCSTR pszString,
IN DWORD cchString,
IN DWORD dwFlags,
IN BYTE *pbBinary,
IN OUT DWORD *pcbBinary,
OUT DWORD *pdwSkip, //OPTIONAL
OUT DWORD *pdwFlags //OPTIONAL
);
//+-------------------------------------------------------------------------
// convert formatted string to binary
// If cchString is 0, then pszString is NULL terminated and
// cchString is obtained via strlen() + 1.
// dwFlags defines string format
// if pbBinary is NULL, *pcbBinary returns the size of required memory
// *pdwSkip returns the character count of skipped strings, optional
// *pdwFlags returns the actual format used in the conversion, optional
//--------------------------------------------------------------------------
BOOL
WINAPI
CryptStringToBinaryW(
IN LPCWSTR pszString,
IN DWORD cchString,
IN DWORD dwFlags,
IN BYTE *pbBinary,
IN OUT DWORD *pcbBinary,
OUT DWORD *pdwSkip, //OPTIONAL
OUT DWORD *pdwFlags //OPTIONAL
);
#ifdef UNICODE
#define CryptStringToBinary CryptStringToBinaryW
#else
#define CryptStringToBinary CryptStringToBinaryA
#endif // !UNICODE
//+-------------------------------------------------------------------------
// convert binary to formatted string
// dwFlags defines string format
// if pszString is NULL, *pcchString returns the size of required memory in byte
//--------------------------------------------------------------------------
BOOL
WINAPI
CryptBinaryToStringA(
IN CONST BYTE *pbBinary,
IN DWORD cbBinary,
IN DWORD dwFlags,
IN LPSTR pszString,
IN OUT DWORD *pcchString
);
//+-------------------------------------------------------------------------
// convert binary to formatted string
// dwFlags defines string format
// if pszString is NULL, *pcchString returns the size of required memory in byte
//--------------------------------------------------------------------------
BOOL
WINAPI
CryptBinaryToStringW(
IN CONST BYTE *pbBinary,
IN DWORD cbBinary,
IN DWORD dwFlags,
IN LPWSTR pszString,
IN OUT DWORD *pcchString
);
#ifdef UNICODE
#define CryptBinaryToString CryptBinaryToStringW
#else
#define CryptBinaryToString CryptBinaryToStringA
#endif // !UNICODE
// dwFlags has the following defines
#define CRYPT_STRING_BASE64HEADER 0x00000000
#define CRYPT_STRING_BASE64 0x00000001
#define CRYPT_STRING_BINARY 0x00000002
#define CRYPT_STRING_BASE64REQUESTHEADER 0x00000003
#define CRYPT_STRING_HEX 0x00000004
#define CRYPT_STRING_HEXASCII 0x00000005
#define CRYPT_STRING_BASE64_ANY 0x00000006
#define CRYPT_STRING_ANY 0x00000007
#define CRYPT_STRING_HEX_ANY 0x00000008
#define CRYPT_STRING_BASE64X509CRLHEADER 0x00000009
#define CRYPT_STRING_HEXADDR 0x0000000a
#define CRYPT_STRING_HEXASCIIADDR 0x0000000b
#define CRYPT_STRING_NOCR 0x80000000
// CryptBinaryToString uses the following flags
// CRYPT_STRING_BASE64HEADER - base64 format with certificate begin
// and end headers
// CRYPT_STRING_BASE64 - only base64 without headers
// CRYPT_STRING_BINARY - pure binary copy
// CRYPT_STRING_BASE64REQUESTHEADER - base64 format with request begin
// and end headers
// CRYPT_STRING_BASE64X509CRLHEADER - base64 format with x509 crl begin
// and end headers
// CRYPT_STRING_HEX - only hex format
// CRYPT_STRING_HEXASCII - hex format with ascii char display
// CRYPT_STRING_HEXADDR - hex format with address display
// CRYPT_STRING_HEXASCIIADDR - hex format with ascii char and address display
//
// CryptBinaryToString accepts CRYPT_STRING_NOCR or'd into one of the above.
// When set, line breaks contain only LF, instead of CR-LF pairs.
// CryptStringToBinary uses the following flags
// CRYPT_STRING_BASE64_ANY tries the following, in order:
// CRYPT_STRING_BASE64HEADER
// CRYPT_STRING_BASE64
// CRYPT_STRING_ANY tries the following, in order:
// CRYPT_STRING_BASE64_ANY
// CRYPT_STRING_BINARY -- should always succeed
// CRYPT_STRING_HEX_ANY tries the following, in order:
// CRYPT_STRING_HEXADDR
// CRYPT_STRING_HEXASCIIADDR
// CRYPT_STRING_HEXASCII
// CRYPT_STRING_HEX
char *flags[12]={
"CRYPT_STRING_BASE64HEADER",
"CRYPT_STRING_BASE64",
"CRYPT_STRING_BINARY",
"CRYPT_STRING_BASE64REQUESTHEADER",
"CRYPT_STRING_HEX",
"CRYPT_STRING_HEXASCII",
"CRYPT_STRING_BASE64_ANY",
"CRYPT_STRING_ANY",
"CRYPT_STRING_HEX_ANY",
"CRYPT_STRING_BASE64X509CRLHEADER",
"CRYPT_STRING_HEXADDR",
"CRYPT_STRING_HEXASCIIADDR",
};
#define MAXC 1024
BYTE b[22]={
0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0x0A,0x0B,0x0C,0x0D,0x0E,0x0F,
0x41,0x42,0xB0,0xA1,0x4A,0x55,
};
BOOL r;
DWORD len,dwFlags;
TCHAR s[MAXC];
int _tmain() {
_tprintf(_T("API CryptBinaryToString in crypt32.dll Demonstration:\n"));
for (dwFlags=0;dwFlags<12;dwFlags++) {
if (dwFlags==2
|| dwFlags==6
|| dwFlags==7
|| dwFlags==8) continue;
r=CryptBinaryToString(b,22,dwFlags,NULL,&len);
if (!r) {
_tprintf(_T("CryptBinaryToString error!\n"));
return 1;
}
if (len>MAXC) {
_tprintf(_T("%d==len>MAXC==%d!\n"),len,MAXC);
return 2;
}
r=CryptBinaryToString(b,22,dwFlags,s,&len);
if (!r) {
_tprintf(_T("CryptBinaryToString error!\n"));
return 3;
}
_tprintf(_T("\n%s:[\n%s]\n"),flags[dwFlags],s);
}
return 0;
}
//API CryptBinaryToString in crypt32.dll Demonstration:
//
//CRYPT_STRING_BASE64HEADER:[
//-----BEGIN CERTIFICATE-----
//AAECAwQFBgcICQoLDA0OD0FCsKFKVQ==
//-----END CERTIFICATE-----
//]
//
//CRYPT_STRING_BASE64:[
//AAECAwQFBgcICQoLDA0OD0FCsKFKVQ==
//]
//
//CRYPT_STRING_BASE64REQUESTHEADER:[
//-----BEGIN NEW CERTIFICATE REQUEST-----
//AAECAwQFBgcICQoLDA0OD0FCsKFKVQ==
//-----END NEW CERTIFICATE REQUEST-----
//]
//
//CRYPT_STRING_HEX:[
// 00 01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f
// 41 42 b0 a1 4a 55
//]
//
//CRYPT_STRING_HEXASCII:[
// 00 01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f ................
// 41 42 b0 a1 4a 55 AB..JU
//]
//
//CRYPT_STRING_BASE64X509CRLHEADER:[
//-----BEGIN X509 CRL-----
//AAECAwQFBgcICQoLDA0OD0FCsKFKVQ==
//-----END X509 CRL-----
//]
//
//CRYPT_STRING_HEXADDR:[
//0000 00 01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f
//0010 41 42 b0 a1 4a 55
//]
//
//CRYPT_STRING_HEXASCIIADDR:[
//0000 00 01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f ................
//0010 41 42 b0 a1 4a 55 AB..JU
//]
//
uj5u.com熱心網友回復：
我也遇到樓主的問題，請問您是怎么解決的？能否將代碼發到我的信箱中 notery#163.com （#--@） 我可以開帖給您100分。
uj5u.com熱心網友回復：
你的那個貼子，我已經寫了個簡單的示例工程回復你了。
uj5u.com熱心網友回復：
請問能否說明一下怎樣轉換，我找的代碼都用不了，你可以指導一下嗎？uj5u.com熱心網友回復：
Private Sub Command1_Click()
Dim test As String
test = "/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL"
test = test & "/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wgARCABRAFUDASIAAhEBAxEB/8"
test = test & "QAGgABAAMBAQEAAAAAAAAAAAAAAAMEBQIBBv/EABgBAQADAQAAAAAAAAAAAAAAAAABAgME/9oADAMBAAIQAxAAAAGIAAAAAAFThsxtndaVTSII7UGryara5"
test = test & "8wQBmW6Odr07veP1drSYMJu2qlvn5wQBXraPKcXP+k8rtV6tS2z5kFAAAAAAAAAAAAAP//EACUQAAEDBAECBwAAAAAAAAAAAAMAAQIEERIgExQzISIkMTRA"
test = test & "UP/aAAgBAQABBQL7BiuNRmWSxOsDrA6fmZCnmPQ2PLGlE8DtjPzK0lK6p+xpV+9IZhRc83l6i2R8etVN2NK1NJM81mRO5FdU3x9ChiZdGNVEOFsiKAIkF0Y"
test = test & "1CDDhq7XTiZ1wxTDsm8Pxf//EAB8RAAEDBAMBAAAAAAAAAAAAAAABAhEDEBIhIDAxQf/aAAgBAwEBPwHm1qYyQhAvt6Lsfhs2O9vko2okbFcvf//EAB0RAA"
test = test & "EEAgMAAAAAAAAAAAAAAAIAARESAyATMUD/2gAIAQIBAT8B3uLPDrC1wsTQuMdA6hVFQLeX/8QAKBAAAQIEBAUFAAAAAAAAAAAAAAECERIhMQMgMlEQQEJDk"
test = test & "UFQYZLR/9oACAEBAAY/AuYbKiV3Og6DtnbO2I5cuFNpjUjh4iR2iQZUspZSo3LhiuHQlrYjM0gQWg3KzhpUspWbgzKk0abF3eRJHOivyalGqrn1Tcu7yI1L"
test = test & "Jn/UPT6l/Zv/xAAmEAEAAgEBBwQDAAAAAAAAAAABABEhMRAgQVFhobFxkfDxQFDR/9oACAEBAAE/IfyGghbGhHfMOnfPmudTug+5EPAvA3eM8mEvFarFhkT"
test = test & "TVCfORHX25QYM8/zuoLObCWZcXGykDTlCzKaVi5wAUKycfly1VYYit/Xzu6fWxwogP4RDHbgywDZ87zuhDoLbNa7Rm4+4ZxwoNnVgfU3uaYpa36DOh7UHQq"
test = test & "5GIOR/S//aAAwDAQACAAMAAAAQ88888885Td88892CV889n488888888888888/8QAHREBAAICAgMAAAAAAAAAAAAAAQARECEgQTAxYf/aAAgBAwEBPxDm6"
test = test & "+o9BAPUNIyIttphP1PbkAoYHY3LTTqLe/N//8QAHBEBAAIDAAMAAAAAAAAAAAAAAQARICFBEDCB/9oACAECAQE/EM6Y23oaghYN6+xAh5qtPY8WbFQwRuHv"
test = test & "/8QAJxABAAICAAUDBAMAAAAAAAAAAQARITEgQVFhcZGx0UCBofBQwfH/2gAIAQEAAT8Q+oDYxaaKL5SvpX1YEt4cyV2p7XKPyyAquu8lxdvQUp/XCzvgpUg"
test = test & "hn7blTT2ghvG9QYiMsl+ZT033wqxXnLhdR7UkNE9Pc4VQKcnwTd2LNkWA1zK3mtZv8d5s2GB2pya1lLigT6lQUlIWVrLsRahQtzGpYjdnucKpf1ogtnsd4v"
test = test & "ZhxvD8V6KIgqLKiFRvtWfje5wqaLKqNwPJ6T4h2Cil5VdqlyLYFXyvWNjocgPM15n+c+JigFFrd3xAMh4ZQnXWA9Sdb9HtMGDoAehEwEOq/wAL/9k="
Call decodeBase64ToJpg(test, App.Path & "\12.jpg")
End Sub
Function decodeBase64ToJpg(ByVal strData As String, ByVal ImgPath As String)
Dim xml As Object: Set xml = CreateObject("MSXML2.DOMDocument")
Dim stm As Object: Set stm = CreateObject("ADODB.Stream")
With xml
.resolveExternals = False
.loadxml ("<data>" & strData & "</data>")
.documentElement.setAttribute "xmlns:dt", "urn:schemas-microsoft-com:datatypes"
.documentElement.dataType = "bin.base64"
End With
With stm
.Type = 1 'adTypeBinary
.Open
.Write xml.documentElement.nodeTypedValue
.SaveToFile ImgPath
.Close
End With
Set xml = Nothing
Set stm = Nothing
End Function
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/35138.html
標籤：VBA
上一篇：VB題，求大佬幫忙
下一篇：VB用矩形法求定積分