ASDASD
--====================== 不常用SQL語法======================--
-- 修改資料欄位型態
----------------------------------------------------------------------
ALTERTABLEABCTABLEDROPDF__ABCTABLE__NAME__082E6AE0
ASDASD
--====================== 不常用SQL語法======================--
-- 修改資料欄位型態
----------------------------------------------------------------------
ALTERTABLEABCTABLEDROPDF__ABCTABLE__NAME__082E6AE0
<script src="https://gist.github.com/michaelctwk/11d75bf00b5c2bd08b78.js"></script>
1、查找重複內容公式:
=IF(COUNTIF(A:A,A2)>1,"重複","")。
2、用出生年月來計算年齡公式:
=TRUNC((DAYS360(H6,"2009/8/30",FALSE))/360,0)。
<script src="https://gist.github.com/michaelctwk/7fb4620e5acd5e803ad0.js"></script>
Imports System.Data
Imports System.Net.Mail
Imports System.IO
Public Class MailFunction
Private PublicFun As New PublicFunction
'連線錯誤訊息
[Login Failed. Check for valid user ID, server name and password Native Error code: 4002]
解決方式:
加上[Persist Security Info=True]
------------------------------[VBA程式碼]---------------------------------
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
'讀取INI檔
Dim ret As Long
Dim buff As String
'找尋目前檔案路徑
Dim FullPath As Object
Dim CurrentProject As Object
Dim Path As Object
FullPath = CurrentDb.Name
'使用VBA建立一文字檔
Private Sub CommandButton2_Click()
Dim otfile As String
otfile = "d:\test.csv"
Open otfile For Output As #1
<script src="https://gist.github.com/michaelctwk/a80b3983812b77ea23e7.js"></script>