×
固定報酬制
|
〜 5,000円
|
---|---|
納品完了日
|
2017年05月18日 |
掲載日
|
2017年05月13日 |
応募期限
|
2017年05月15日 |
応募した人 | 3 人 |
---|---|
契約した人 | 1 人 |
募集人数 | |
気になる!リスト | 7 人 |
1.依頼内容 テキストファイルを読込み、Excelへ貼りつける ExcelマクロのLibre office calcへの移植 2.成果物 ①マクロ付Excelファイル「テキストファイル読込み.xlsm」 と同等の機能を持ったLibreoffice calc形式のマクロ付ファイル ②Libreoffice版に移植したマクロファイルの簡単な 操作方法文面。 ※文面はテキスト形式でOKです。 3.現状の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 4.作成を依頼する移植マクロの動作詳細 動作については、こちらの動画を参照ください。 https://youtu.be/_CxXSR6-Ahs ※テキストファイルを読み込むパスは、 マクロファイルを保存している任意の パスとなるよう、お願いいたします。 マクロファイルと同じ階層に、 読み込みをするテキストファイルを保存 する、という意味です。 ※テキストファイルの読み込みは、 ファイル名の昇順としてください。 5.業務依頼時に提供する情報 マクロ付Excelファイル 「テキストファイル読込み.xlsm」 → 添付ファイルにて公開しています 6.報酬 2,500円 上記は当方がクラウドワークスにお支払いする 総額になります。 諸々手数料は、業務を請け負う方のご負担に なりますこと、あらかじめご了承ください。 ご質問等、ございましたら、お気軽にお知らせください。 7.納期 お仕事開始から3日後を目途に納品ください。 8.検収手続き 当方が、操作方法文面を読み、マクロを操作し、 正常に動作することを確認し、検収とさせていただきます。 以上、よろしくお願いいたします。 |
特記事項 |
---|
|
クラウドワーカー | 応募日時 |
---|---|
daeheuikim | 2017/05/13 23:01 |
uk.taniyama | 2017/05/13 14:23 |
apatch987 | 2017/05/13 11:01 |