excel4.0シートをasにアップロードする転送をcsvに切り替えるには
まず ttoをbasic順次に変えて転送記述を変更
pcommの転送記述ファイルの場所を確認 "パス名\ファイル名.fdf"
書き出しファイル名、ファイルパスの決定 "パス\ファィル名.csv"
転送元範囲の書き換え MAKE_CSV_FILE内
vba実行後 csvを開いて文字列にダブルコーテーションが入っているか確認
*コードを載せただけでは解析だけで挫折して使ってもらえなそうなので書き換え↑
dimで定義をしていない部分でこけるかも
Sub make_csv1()
Dim strsws As String '転送定義 '文字列 1文字,2数字 例 1110001など
Dim startrow As Integer '範囲の何行目から読むか、1行目がタイトルなら2行目から読むので2
'fdfから定義を読み込み文字列に展開する
callfdf "パス名\ファイル名.fdf", strsws
'excelの範囲名から、定義情報に従い、csvに書き出す
MAKE_CSV_FILE "パス\ファィル名.csv", strsws, startrow
End Sub
0 件のコメント:
コメントを投稿