VBAでCSV取込 - Qiita
外部データの取り込み機能 一行ずつカンマの数を数えるなんてめんどくさいのでエクセルの機能を使う。（超速い） おせっかい（自動変換）を防ぐために全ての列を文字列として取り込む。 1行目にタブが含まれていればタブ区切り、タブが無ければカンマ区切りで取り込む。 ※カンマ区切り、タブ区切りの判定はそれぞれの環境に合わせてください データ取込後にデータ接続を解除する。 'FileName Variant 取り込みファイル名 'SheetName String 貼り付け先シート名 Sub import_csv(FileName as Variant, SheetName As String) On Error GoTo ErrorHandler Application.ScreenUpdating = False Dim csvsheet As Worksheet '貼り付け先のシート Dim sam
おサイフケータイは、すれ違い通信とか満員電車で勝手にお金を引かれたりしないんでしょうか？
おサイフケータイは、すれ違い通信とか満員電車で勝手にお金を引かれたりしないんでしょうか？
VBA フォルダ内のファイルを昇順に読み出す方法 - OKWAVE
以下のような簡単なプログラムを組みました。 ファイル名を昇順に読み出せると思っていましたが、そうならない場合があるようです。 なぜなのでしょうか？ また、どうすればファイルを昇順に読み出せるのでしょうか？ どなたか教えて頂けないでしょうか？ （抜粋） Set WS1 = Worksheets("データー（org）") '書き出すシート Set WS3 = Worksheets("集計") Dim a As String With Application.FileDialog(msoFileDialogFolderPicker) .Show PathName = .SelectedItems(1) & "\" 'ファイルの入っているフォルダを指定 End With BookName = Dir(PathName) '処理するファイル Do Until BookName = "" Workbo
売れ残った太巻き燃やす 伝統行事「恵方焼き」開催
節分に売れ残った太巻きを「恵方」を向いて燃やす「恵方焼き」が５日、都内の河川敷で行われた。無言で燃やすと願い事が叶うといい、今年は百貨店やスーパー、コンビニの店員ら約１００名が参加。持ち寄った太巻きを、次々に炎へと投げ入れていた。 「恵方焼き」の正確な由来は不明で、コンビニオーナーから太巻きの在庫処分を押し付けられたアルバイト店員が困って燃やしたことがきっかけとも、江戸時代の遊郭が発祥とも、古代マヤ文明の儀式が起源とも、様々な説が飛び交う。一度は途切れた習慣だったが、恵方巻き商戦の過熱とともに復活し、現在では「業界の伝統行事」（参加者）だという。 今年は午後７時から開始。多くの参加者が就業時間を超えていたが、「恵方を向いて無言で残業すると願い事が叶う」という「恵方残業」の考えに基づき、文句を言う人はいなかった。 ひと際太い太巻きを投げ入れる、千葉県内のスーパーで働く調理担当の男性（２４）は
「うちの犬たちは不幸」年５００匹出荷、繁殖業者の告白：朝日新聞デジタル
ペットショップなどで売られている子犬や子猫。その親たちの境遇について考えたことはありますか？ 日本では毎年、のべ８０万匹前後の犬猫が流通しています。多くの子犬が生まれる場となっている繁殖業者を、関東地方で取材しました。 「うちの犬たちは不幸です。私から見てもかわいそうです」 犬の繁殖業を営む女性は、そう話し始めた。 繁殖業を始めたのは２０、３０年前。最初に用意した繁殖犬は数十匹だった。それがいつの間にか増え、いまでは約１５０匹の繁殖犬を抱える。小型犬を中心に複数の犬種を扱っている。 飼育施設の中に案内されると、犬たちの甲高い鳴き声に包まれた。 ３０平方メートルほどの広さに、５０～７０センチ四方の金属製のケージが所狭しと積み重ねられていた。すべてが３段重ねで、ひとつのケージに１、２匹ずつ犬が入れらている。 「狭いスペースの中でなるべく多くの犬を飼育しようと考えるのが、ブリーダー（繁殖業者）の
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
