Excel汉字转拼音无声调

python 时间格式化

    print(str(datetime.datetime.now().strftime("%Y-%m-%d %X")))
    print(str(datetime.datetime.now().strftime("%Y-%m-%d %H%M%S")))

List和元组添加元素

listDa=[]
listDa.append(a) #将a 添加到List集合里
dict={}
dict.update(dict2) # 将 dict2 的内容添加到 dict 中

创建一个Excel 并往sheet里写入文件

def createExcel(index):
    mywb = openpyxl.Workbook()
    title = 'my_second_sheet' + str(index)
    # index 表示sheet页，从0开始，title 表示sheet页名称
    # 创建时，默认会有一个Sheet页
    mywb.create_sheet(index=index, title=title)
    # logger.info(mywb.get_sheet_names())
    mysheet = mywb[title]
    mysheet['F6'] = 'Writing new Value!'
    mywb.save('./source_file/' + str(datetime.datetime.now().strftime("%Y-%m-%d-%H%M%S")) + '.xlsx')

汉字转拼音

# 将汉字转为拼音
import openpyxl
import pypinyin
from loguru import logger

def pinyin(word):
    s = ''
    # 不带声调的 style=pypinyin.NORMAL
    for i in pypinyin.pinyin(word, style=pypinyin.NORMAL):
        s += ''.join(i)
    return s


# 保存Excel
def saveExcel(code, num):
    data = openpyxl.load_workbook("./source_file/123.xlsx")  # 打开电影.xlsx文件读取数据
    table = data["Sheet1"]
    table["A" + str(num)] = code
    data.close()
    data.save("./source_file/123.xlsx")


if __name__ == '__main__':
    workbook = openpyxl.load_workbook("./source_file/123.xlsx")
    # 获取当前活动的sheet页对象
    sheet = workbook.active
    # 获取指定的sheet页对象
    sheet2 = workbook["Sheet1"]
    num = 1
    while True:
        num += 1
        identifier = sheet2._get_cell(num, 2).value  # 标识、code
        if identifier is None:
            break
        code = pinyin(identifier)
        saveExcel(code, num)
    logger.info('拼音转换结束===================')

惜秦皇汉武，略输文采；唐宗宋祖，稍逊风骚。 一代天骄，成吉思汗，只识弯弓射大雕。 俱往矣，数风流人物，还看今朝

posted @ 2021-10-22 23:30  darling331  阅读(96)  评论(1)  编辑  收藏  举报

发布者: 匿名 2017年11月20日 围观次 点赞:3

将中文姓名直接转为中文拼音，这里有两个方法提供，一个是用WORD来做中转转换，一个是用VBA宏来转换

一、WORD法

二、VBA宏

Function PinYin(TXT As Variant, Delimiter As String, Tpy As Byte, Optional FirU As Boolean = False) As String
    'Delimiter，隔离符号；
    'Tpy定义返回格式：
        '1，带用数字表示的声调
        '2，无声调
        '3，仅首字母
        '4，带传统声调
    'FirU，各单词首字母是否大写，默认小写
        
    Dim N As Integer
    Dim ASCID As Long
    Dim Y As Byte
    Dim M_Txt As String
    Dim M_PY As String
    Dim MI_PY As String
    
    On Error Resume Next
    
    TXT = Trim(TXT)
    If TXT = "" Then
        PinYin = ""
        Exit Function
    End If
    
    If PY_DB(72, 94) <> "ā/á/ǎ/à" And Tpy = 4 Then
        Call DealVal_2
    ElseIf PY_DB(72, 94) <> "a1" And Tpy < 4 Then
        Call DealVal_1
    End If
    
    For i = 1 To Len(Trim(TXT))
        M_Txt = Mid(Trim(TXT), i, 1)
        If M_Txt = "" Then
            MI_PY = ""
        Else
            ASCID = Asc(M_Txt)
            For N = 1 To UBound(PY_Index)
                If PY_Index(N) < ASCID Then Exit For
            Next N
        
            PYDB_Index = PY_Index(N - 1) - ASCID
        
            If PYDB_Index < 0 Or PYDB_Index > 93 Then
                M_PY = M_Txt
                Y = 1
            Else
                M_PY = PY_DB(N - 1, PYDB_Index + 1)
            End If
        End If
    
        Select Case Tpy
            Case 1
                MI_PY = M_PY
            Case 2
                MI_PY = IIf(M_PY = M_Txt, M_PY, Mid(M_PY, 1, Len(M_PY) - 1))
            Case 3
                MI_PY = Left(M_PY, 1)
            Case 4
                MI_PY = M_PY
        End Select
     
        PinYin = PinYin & IIf(M_PY = M_Txt, MI_PY, IIf(Y = 1, Delimiter & MI_PY & Delimiter, IIf(i = Len(Trim(TXT)), MI_PY, MI_PY & Delimiter)))
        Y = IIf(Y = 1, IIf(M_PY = M_Txt, 1, 0), 0)
    Next i
    If FirU Then PinYin = Application.WorksheetFunction.Proper(PinYin)
End Function

函数的声明：Function PinYin(TXT As Variant, Delimiter As String, Tpy As Byte) As String，

这里第三个参数 Tpy是定义返回格式，主要有以下几种：

1，带用数字表示的声调

2，无声调

3，首字母

4，首字母并大写

5，带传统声调

假设 TXT="my name is: 中国 1."

用 PinYin(TXT," ",5)调用，将得到：my name is:  zhōng/zhòng guó  1.

用 PinYin(TXT," ",4,1)调用，将得到：My Name Is:  Zhōng/Zhòng Guó  1.

顶(3)

踩(1)

EXCEL 转换 vba 宏 汉字 拼音 【搜索相关内容】[打印] [关闭]

上一篇：MAX/MIN+IF数组求取多重条件最大值最小值

下一篇：EXCEL使用VBA SQL读取ACCESS数据库内容