全般的日本語フォーラム

　まず仲野先生が添付されたfeedback.xlsの中身をバイナリエディタで見てみました．
　シート名に関するデータフォーマットはSheet1/detailedとASCIIコードで入力されており，シート名の前に付くバイナリデータはそれぞれ１byteの数字（Sheet1:06，detailed: 08）でした．古いフォーマットのようです．試しに拡張子をxlw(Excel4)に変えて読み込ませてみたのですがダメでした．本文中のデータはバイナリエディタ上で見てみるとUTF-8とUCS-2(UTF-16)の日本語文字データが混在していましたので，これらのデータがシフトJISでないとこの古いフォーマットでは対応できないのでしょう．

　さて，仕事が一段楽したのでまとめます．
　ワークシート名は３１文字まで（ANKでも３１文字，日本語でも３１文字）入力可能であることを確認済みです．さらにExcelのワークシート名として使用不可な文字が含まれる場合は'_'に置き換えられることも確認済みですので安心です．

(1) mod/feedback/analysis_to_excel.php

    // Creating a workbook
    $workbook = new EasyWorkbook("-");
    $workbook->setTempDir($CFG->dataroot.'/temp');
    $workbook->send($filename);
    $workbook->setVersion(8);
    // Creating the worksheets
// (Shirai073): フィードバックモジュールのエクスポート（Excel形式）においてExcelファイルが文字化け（あるいはシート名が文字化け）する問題 (2008/07/11)
// (Shirai073): 以下修正
//  $sheetname = clean_param($feedback->name, PARAM_ALPHANUM);
    $sheetname = clean_param($feedback->name, PARAM_MULTILANG);
// (Shirai073): ここから追加
    $sheetname = mb_ereg_replace('[#\[\]\/:*?]', '_', $sheetname);  // シート名に使用不可な文字を'_'に置換
// (Shirai073): ここまで追加
    error_reporting(0);
// (Shirai073): ここから修正
//  $worksheet1 =& $workbook->addWorksheet(substr($sheetname, 0, 31));
    $worksheet1 =& $workbook->addWorksheet(mb_substr($sheetname, 0, 31));
// (Shirai073): ここまで修正
    $worksheet1->set_workbook($workbook);
    $worksheet2 =& $workbook->addWorksheet('detailed');
    $worksheet2->set_workbook($workbook);
    error_reporting($CFG->debug);

(2) mod/feedback/easy_excel.php

 class EasyWorkbook extends Spreadsheet_Excel_Writer {
    function &addWorksheet($name = ''){
        global $CFG;
        
        $index      = count($this->_worksheets);
        $sheetname = $this->_sheetname;

// (Shirai073): フィードバックモジュールのエクスポート（Excel形式）においてExcelファイルが文字化け（あるいはシート名が文字化け）する問題 (2008/07/11)
// (Shirai073): ここから追加
        if (function_exists('mb_convert_encoding')) $name = mb_convert_encoding($name, 'UTF-16LE', 'UTF-8');
// (Shirai073): ここまで追加
        if ($name == '') {
            $name = $sheetname.($index+1);
        }

        // Check that sheetname is <= 31 chars (Excel limit before BIFF8).
        if ($this->_BIFF_version != 0x0600)
        {
            if (strlen($name) > 31) {
                return $this->raiseError("Sheetname $name must be <= 31 chars");
            }
        }

以上のfeedbackモジュールの修正（Moodle1.8用, Moodle1.9用共通）に加え，以下のPEARライブラリの修正も必要です．(a)から(c)のうち，feedbackモジュールに関わるのは(b)と(c)のみですが，(a)の修正も行なわないと他のExcel形式でのエクスポート機能に悪影響が出る可能性があります．

(3) lib/pear/Spreadsheet/Excel/Writer/Workbook.php

(a) function &addWorksheet(), 321行近辺

    function &addWorksheet($name = '')
    {
        $index     = count($this->_worksheets);
        $sheetname = $this->_sheetname;

        if (function_exists('mb_convert_encoding')) $name = mb_convert_encoding($name, 'UTF-16LE', 'UTF-8');  // (追加)
        if ($name == '') {
            $name = $sheetname.($index+1);
        }

(b) function _storeBoundsheet() : 945行近辺

     function _storeBoundsheet($sheetname,$offset)
    {
      $record    = 0x0085;                    // Record identifier
        if ($this->_BIFF_version == 0x0600) {
            $length    = 0x08 + strlen($sheetname); // Number of bytes to follow
        } else {
            $length = 0x07 + strlen($sheetname); // Number of bytes to follow
        }

        $grbit     = 0x0000;                    // Visibility and sheet type
//      $cch       = strlen($sheetname);        // Length of sheet name
        $cch       = function_exists('mb_strlen') ? mb_strlen($sheetname, 'UTF-16LE') : strlen($sheetname); // Length of sheet name  //
        $cch      += 0x0100;  // (追加)

        $header    = pack("vv",  $record, $length);
        if ($this->_BIFF_version == 0x0600) {
            $data      = pack("Vvv", $offset, $grbit, $cch);
        } else {
            $data      = pack("VvC", $offset, $grbit, $cch);
        }
        $this->_append($header.$data.$sheetname);
    }

(c) function _storeExternsheet(): 1104行近辺

    function _storeExternsheet($sheetname)
    {
        $record      = 0x0017;                     // Record identifier
        $length      = 0x02 + strlen($sheetname);  // Number of bytes to follow

//      $cch         = strlen($sheetname);         // Length of sheet name
        $cch         = function_exists('mb_strlen') ? mb_strlen($sheetname) : strlen($sheetname);      // Length of sheet name
        $rgch        = 0x03;                       // Filename encoding

        $header      = pack("vv",  $record, $length);
        $data        = pack("CC", $cch, $rgch);
        $this->_append($header . $data . $sheetname);
    }