刘世达

摘要： 目前还没发现VBA中有直接的函数能够将完整的年月日时分秒的文本格式日期转换成日期型日期的，那只能使用间接实现的办法。用dateserial + timeserial的方法。因为dateserial和timeserial两个都是时间格式的，故可以直接相加，形成的效果和正常日期格式一致。如下图c和f，都 阅读全文

摘要： Private Sub CommandButton1_Click() Dim xlapp1 As Excel.Application Dim xlbook1 As Excel.Workbook Dim xlsheet1 As Excel.Worksheet Dim xlapp2 As Excel.A 阅读全文

摘要： sub test()Set cnn = CreateObject("ADODB.Connection") Set rs = CreateObject("Adodb.Recordset")strCn= "Provider=sqloledb;Server=R9HDET7;Database=dbname; 阅读全文

摘要： 你在EXCEL中增加一个列名为ID,后在VBA中写以下代码，并引用Microsoft ActiveX Data Objects 2.8后执行Public Sub 写入SQL2008()Dim cnn As New ADODB.ConnectionDim SQL As String, mydata A 阅读全文

摘要： ActiveWorkbook.Worksheets("LTE_TDS").Columns("A:A").SelectActiveWorkbook.Worksheets("LTE_TDS").Sort.SortFields.ClearActiveWorkbook.Worksheets("LTE_TDS 阅读全文

摘要： 查询语句中select from where group by having order by的执行顺序 查询语句中select from where group by having order by的执行顺序 1.查询中用到的关键词主要包含六个，并且他们的顺序依次为 select--from--w 阅读全文

摘要： Sub test() Dim html As Object, D As Object, W As Object, arr() Set html = CreateObject("msxml2.xmlhttp") html.Open "GET", "file:///" & ThisWorkbook.Pa 阅读全文

摘要： pycharm中同时注释多行代码快捷键： 代码选中的条件下，同时按住 Ctrl+/，被选中行被注释，再次按下Ctrl+/，注释被取消 阅读全文

摘要： Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 26 And Range("f" & Target.Row) = "柏广清" Then Set d = CreateObject("scrip 阅读全文

摘要： Sub 日期别()On Error Resume Nextlastrow = Sheets("运营日报").Range("a1048576").End(xlUp).Rowlastday = VBA.Day(Sheets("运营日报").Range("a" & lastrow)) + 1lastcol 阅读全文