【簡単】テキストファイルを読込みExcelへ貼りつけるExcelマクロVBAのLibre office calcへの移植の仕事

見積もり募集の結果

見積もり募集の内容

提示した予算

1 円 ~ 5,000 円

依頼概要

１．依頼内容

テキストファイルを読込み、Excelへ貼りつける
ExcelマクロのLibre office calcへの移植

２．成果物

　①マクロ付Excelファイル「テキストファイル読込み.xlsm」
　　と同等の機能を持ったLibreoffice calc形式のマクロ付ファイル

　②Libreoffice版に移植したマクロファイルの簡単な
　　操作方法文面。
　　※文面はテキスト形式でOKです。

３．現状のExcelマクロ内容

マクロのコードは以下になります。

Sub Macro()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

Dim FolderPath As String
'ここのアドレスをファイルが格納されているフォルダのパスに変えてください
FolderPath = "E:\tacci\Desktop\results"

Dim myFile As Object
Dim i As Long
i = 1
For Each myFile In fso.GetFolder(FolderPath).Files
Cells(i, 1).Value = fso.OpenTextFile(myFile.Path).ReadAll()
i = i + 1
Next
End Sub

４．作成を依頼する移植マクロの動作詳細

動作については、こちらの動画を参照ください。

https://youtu.be/_CxXSR6-Ahs

※テキストファイルを読み込むパスは、
　マクロファイルを保存している任意の
　パスとなるよう、お願いいたします。

　マクロファイルと同じ階層に、
　読み込みをするテキストファイルを保存
　する、という意味です。

※テキストファイルの読み込みは、
　ファイル名の昇順としてください。


５．業務依頼時に提供する情報

マクロ付Excelファイル 「テキストファイル読込み.xlsm」
　→ 添付ファイルにて公開しています

６．報酬

　2,500円

　上記は当方がランサーズにお支払いする
　総額になります。
　諸々手数料は、業務を請け負う方のご負担に
　なりますこと、あらかじめご了承ください。

ご質問等、ございましたら、お気軽にお知らせください。

７．納期

お仕事開始から３日後を目途に納品ください。

８．検収手続き

当方が、操作方法文面を読み、マクロを操作し、
正常に動作することを確認し、検収とさせていただきます。

以上、よろしくお願いいたします。

キャンセル理由：発注の必要がなくなったため

他の案件の募集で仕事が完了したため。

添付ファイル

※ 締切後、添付ファイルはクライアントと当選したランサー以外は閲覧できません

• テキストファイル読込み.xlsm