(xlwing使用)空白があるテキストファイル(数行)を読み込んで、excelに貼り付ける mshmura
xlwing 使用
テキストファイルの中身
test.txt
テスト test t3 USD 44
te 55 99 gbe 99
pythonファイル
hello.py
def import_txt_split():
# ブックの読み込み
wb = xw.Book.caller()
# シートの読み込み
sht = wb.sheets['Sheet1']
# テキストファイルの読み込み
f = open('test.txt', 'r',encoding='UTF-8')
# 各行をリストで取得
datalist = f.readlines()
# 空白を取り除く
s = [i.split() for i in datalist]
# 1行ずつ、リストをペッと貼り付ける
for num,i in enumerate(s):
sht.cells(num+1,1).value = i
# テキストファイルを閉じる
f.close()
VBA側
Sub import_text()
RunPython ("import hello; hello.import_txt_split()")
End Sub
このVBAをボタンにマクロ登録。クリック
結果
上記の方法以外に、pandasのdataframeに貼り付けて、A1セルにぺっと貼り付ける方法でも出来た
Author And Source
この問題について((xlwing使用)空白があるテキストファイル(数行)を読み込んで、excelに貼り付ける mshmura), 我々は、より多くの情報をここで見つけました https://qiita.com/msh/items/1093dfd3521848138443著者帰属:元の著者の情報は、元のURLに含まれています。著作権は原作者に属する。
Content is automatically searched and collected through network algorithms . If there is a violation . Please contact us . We will adjust (correct author information ,or delete content ) as soon as possible .