- 博客(11)
- 收藏
- 关注
RSS订阅原创 vb.net发送邮件
Module MyMail ''' <summary> ''' 通过SmtpClient类发送电子邮件 ''' </summary> ''' <param name="ReceiveAddressList">收件人地址列表</param> ''' <param name="Subject">邮件主题</param> ''' <param name="Content">邮件内
2022-03-24 14:01:10
3275
原创 使用python将从sqlsever中查询到的数据保存为excel并自动调整宽
excel格式调整参考AUTOEXECELFORMAT代码# -*- coding:utf8 -*-from openpyxl.styles import Alignmentfrom openpyxl.styles import PatternFillfrom openpyxl.styles import Fontfrom openpyxl import Workbook, load_workbookfrom os import remove, pathclass XlsxSaver
2022-03-15 10:51:43
3558
原创 vb.net 对excel文件进行操作
Imports excel = Microsoft.Office.Interop.ExcelPublic Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim xlapp As excel.Application Dim xlbook As excel.Workbook '工作表 Dim xlsheet As
2022-03-08 15:43:05
5729
3
原创 vb.net 将sqlsever数据导入excel
Imports excel = Microsoft.Office.Interop.ExcelPublic Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'TODO: 这行代码将数据加载到表“FTMESDataSet1.tab1”中。您可以根据需要移动或删除它。 Me.Tab1TableAdapter.Fill(Me.FTMESD.
2022-03-01 09:32:29
531
原创 VBA 实现调用地图查询网页，匹配地址查询所属省份
模块1，选中单个地址单元格查询省份'查询选中地址Sub addressAcquisition()Dim ie As ObjectDim url As Stringcol = Application.WorksheetFunction.CountA(Columns(1))'For i = 2 To col'获取地址网址url = "https://scorpionfree98.github.io/fetch_address_detail/Geocoder.html"Set ie = C
2022-02-25 13:32:43
2101
原创 vb.net waferlist转换2
Public Class Form1 Dim r As String Dim f As String Private Sub chaifen(q As String) Dim a As String = q.Substring(q.LastIndexOf("-")) Dim b As String = q.Remove(q.LastIndexOf("-")) Dim c As String = a.Substring(1, Len(a)
2022-02-24 11:42:11
126
原创 vb.net waferlist转换
Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim m As String = txt_WaferList.Text Dim a() As String Dim n As Integer = m.Length - 1 Dim q() As String TextB
2022-02-24 11:39:45
71
原创 vb.net 连接sqlsever
Public Class Form1 Private Function chaxun(a As String) As Object Try Dim ds As New SqlClient.SqlConnection Dim dm As New SqlClient.SqlCommand ds.ConnectionString = "Data Source=****;Initial Catalog=***;User
2022-02-24 11:37:04
567
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人